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Prólogo 


Los ordenadores están pasando rápidamente a formar parte de la vida co- 
tidiana. El desarrollo de la tecnología del silicio ha representado un avance 
tal que ahora está a nuestro alcance lo que no hace mucho era pura ciencia 
ficción. Se están desarrollando máquinas que pueden trabajar con escalo- 
friante precisión, imitando el modelo humano en cuanto a pensamiento y 
conocimiento. Esta evolución ha provocado la aparición de una de las in- 
dustrias más prósperas: los micros domésticos. Para algunos son simples ju- 
guetes, pero la potencia intrínseca de un ordenador doméstico es grande, y 
existe la posibilidad de crear programas que simulen procesos del pensa- 
miento humano. 

La programación interactiva se concentra sobre cierto aspecto del lengua- 
je BASIC: las instrucciones responsables de manipular información. El li- 
bro enseña cómo usar estas Órdenes y las combina en programas que con- 
versan con el usuario. Se presenta también el creciente campo de la inte- 
ligencia artificial, una de las áreas más excitantes de la informática. Se su- 
pone que el lector tiene escasos conocimientos de programación. El libro 
está escrito para personas sin apenas conocimientos de BASIC, y sólo su- 
pone que el lector ha jugado con unas cuantas Órdenes elementales, como 
PRINT e INPUT. Por otra parte, por si su experiencia en programación 
fuera nula, hemos incluido un curso de choque de BASIC al final del texto. 
En sí mismo, el libro es una introducción al BASIC, pero, a diferencia de 
otros, intenta presentar la noción de inteligencia artificial y enseñar al usua- 
rio cómo escribir programas que interaccionen con él. Se describen dos pro- 
gramas de simulación que convierten el Amstrad en un compañero con el 
cual mantener bis a bis una conversación inteligente y que se comporta de 
una manera similar a un ser humano, incluso con sus defectos. 

Con un pequeño esfuerzo usted escribirá programas que le proporciona- 
rán horas de placer y al mismo tiempo una idea de lo que puede esperar de 
su Amstrad. 

Para terminar con una nota personal, debo agradecer la ayuda, el ánimo 


vil 


y el apoyo que he recibido de familiares y amigos, y de todo el personal de 
Shiva Publishing. A ellos, y a todas las personas que han despertado mi in- 
terés en este área, se debe en parte este libro. 
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¿Pueden pensar las máquinas? 


La ciencia ficción suele llegar a hacerse realidad; así como era imposible 
creer, hace sólo unas décadas, que el hombre pisaría alguna vez la Luna, es 
aún increíble pensar en máquinas que puedan contestar y actuar de forma 
inteligente. Sin embargo el día en que la inteligencia artificial llegue a ser 
un hecho está amaneciendo; no pasará mucho tiempo antes de que un or- 
denador pueda escribir estas mismas palabras. Sin embargo, antes de que 
usted comience a pensar que su Amstrad puede actuar como un ser huma- 
no, quisiera puntualizar que la inteligencia artificial para ordenadores do- 
mésticos no está aún lo bastante avanzada. Pero esto no es razón para no 
intentar llegar tan lejos como se pueda. 

El propósito de este libro es triple. En primer lugar, mostrarle diversas 
instrucciones en lenguaje BASIC y enseñarle a escribir programas que tra- 
bajen únicamente con textos y manipulen los introducidos por el usuario. 
No se supone más que un conocimiento superficial de BASIC, pero si el lec- 
tor no tiene suficiente confianza para abordar el Capítulo 3, en el que se 
comienza a programar, puede consultar el apéndice A, donde hemos escrito 
una guía relámpago de BASIC y sus principios básicos. En segundo lugar, 
se muestra cierto número de técnicas que usted puede incorporar a sus pro- 
pios programas para hacerlos más interactivos; finalmente, se desarrollan 
programas que capacitan al usuario para comunicarse libremente con el or- 
denador. ¿Qué quiero decir con comunicarse libremente? Observe la siguien- 
te interacción entre un humano y un ordenador: 


ORDENADOR: ENCANTADO DE CONOCERTE, JEREMY 
¿POR QUE QUIERES HABLAR CONMIGO? 
HUMANO: TENGO SUEÑOS TERRIBLES 
ORDENADOR: ¿APARECEN OTRAS PERSONAS EN ELLOS? 
HUMANO: SI, MI HERMANA 
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ORDENADOR: PARECE UNA RELACION COMPLICADA 
HUMANO: ESTOY DEPRIMIDO POR ESA RAZON 
ORDENADOR: ¿CON QUE FRECUENCIA TE SIENTES DEPRI- 
MIDO? 
HUMANO: CONTINUAMENTE 
ORDENADOR: ENTIENDO 
HUMANO: Y SUEÑO A MENUDO 
ORDENADOR: TE ENVIDIO ... YO NO PUEDO SOÑAR 
HUMANO: ¿NO TENGO QUE PENSAR EN ELLA? 
ORDENADOR: YO LO HARIA SI ESTUVIERA EN TU LUGAR 
HUMANO: ¿QUIERES DECIR QUE ES NORMAL? 
ORDENADOR: NO PUEDO DECIR LO QUE PIENSO 
HUMANO: TU NO PIENSAS. NO ERES MAS QUE UNA 
MAQUINA 
ORDENADOR: ¿TE PREOCUPAN LAS MAQUINAS? 
HUMANO: CLARO QUE NO. LOS ORDENADORES NO TIE- 
NEN CEREBRO 
ORDENADOR: LOS ORDENADORES SOMOS PERFECTOS 


Esta conversación no tiene lugar en un ordenador enorme, sino en el Ams- 
trad. Es un ejemplo de lo que se puede realizar con los micros domésticos; 
escribiremos el programa correspondiente en otro lugar del libro. Quizás 
esté pensando que ya tenemos una máquina inteligente, pues puede mante- 
ner una conversación como la anterior. Bueno, sintiéndome como un mago 
al que se le ha caído una carta de la manga, tengo que admitir que se trata 
de un truco. Ciertamente, el programa permite al usuario comunicarse li- 
bremente con el ordenador, y éste hace réplicas inteligentes, pero ¿significa 
esto que la máquina esté pensando? 

Para cuando lleguemos al final de este libro espero haberle inducido a re- 
flexionar sobre si las máquinas pueden o no pensar, lo cual es una cuestión 
controvertida entre los investigadores en el área de la inteligencia artificial. 
Es difícil dar una definición de Al (inteligencia artificial) a causa de la can- 
tidad de argumentos y controversias que rodean el tema. Quizás sirva para 
describir cualquier acción realizada por un ordenador y que previamente 
sólo podía ser ejecutada por humanos. O puede describir el procedimiento 
que la máquina está usando para realizar una tarea, como jugar al ajedrez. 

Le dejo con este problema para que medite sobre él. Cuando avancemos 
a lo largo del libro y aprendamos las diferentes formas de comunicarnos 
con el ordenador, y él, a su vez, de comunicarse con nosotros, trate de de- 
cidir por usted mismo en qué grado su Amstrad es una máquina pensante, 
si es que lo es en alguno. 
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Creación de un programa interactivo . 


La elaboración de un programa interactivo es una combinación de muchos 
factores. Comienza como una idea y evoluciona a lo largo de diversas eta- 
pas hasta que está completo y a plena satisfacción del autor. El plan sub- 
yacente a un programa es tan importante como la forma en que está escri- 
to; la clasificación de problemas en una etapa precoz facilita el desarrollo. 
Este capítulo considera los principios generales que es preciso tener en men- 
te antes de escribir un programa, más aún si se trata de un programa 
interactivo. 

La programación interactiva consiste simplemente en la escritura de pro- 
gramas que puedan intercambiar información con el usuario. Lo notable es 
el uso de BASIC para escribir programas que permiten al usuario comuni- 
carse libremente con el ordenador; en posteriores capítulos veremos cómo 
usar una amplia variedad de instrucciones en lenguaje BASIC que harán 
que nuestro Amstrad llegue a tener la apariencia de un ser pensante, e in- 
cluso inteligente. Lo que intentaremos conseguir es enseñar a nuestro orde- 
nador a pensar. 

En la creación de un programa existirá siempre una idea o un propósito 
que lo origina. Debería meditarse cuidadosamente cuáles son los objetivos 
exactos del programa y la forma en que trabajará. ¿Qué quiere usted que 
el usuario vea en la pantalla? ¿Qué le permitirá teclear? Usted debe plan- 
tearse muchas cuestiones sobre el programa si quiere que todo vaya bien. 

Por ejemplo, explicaremos algunas de las cosas que un usuario puede ha- 
cer para embarullarlo todo. Lo que proponemos es una forma de incorpo- 
rar al programa, para potenciar su utilidad, rutinas que prevengan incluso 
lo peor a lo que ha de enfrentarse un ordenador: ¡el usuario! El ordenador 
no tiene modo de conocer o entender lo que el usuario desea y es en todos 
los sentidos ciego al mundo exterior. Los ordenadores son tontos (pero no 
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le digan esto después a Sigmund, o se enfadará) y tienen que ser alimenta- 
dos con información. 

La información es el fluido vital de la máquina; los ordenadores necesi- 
tan una dieta saludable de datos crudos. Este libro se centra en un aspecto 
de la programación, que es la manipulación de texto, sea éste generado por 
el ordenador o introducido por el usuario. Usted puede que ya conozca al- 
gunas instrucciones de BASIC y sea capaz de introducir (INPUT) y escribir 
(PRINT) información, pero hay muchas más cosas que se pueden realizar 
con texto. BASIC ofrece un conjunto de instrucciones que permiten al pro- 
gramador manipular texto para crear la impresión de una máquina pensan- 
te. Aspectos a tener en cuenta cuando se escribe un programa son: 


l. Usar diagramas de flujo para facilitar la planificación del programa. 
(Hay varios diagramas de flujo en el libro que ayudan a entender la 
forma en que trabajan los programas.) 

2. Planificación de lo que el usuario va a ver en pantalla. 

Facilidad de uso. Intente hacer el programa lo más fácil de usar 

posible. 

4. Detección de errores. Asegúrese de que los errores involuntarios no 
afecten a la marcha normal del programa. 


uy 


Si alguno de estos puntos parece no tener sentido por el momento, no se 
inquiete. Los entenderemos a medida que vayamos avanzando, al final del 
libro estos principios habrán quedado grabados indeleblemente en usted. 

Recuerde siempre que estamos tratando con una caja vacía. Nuestra ta- 
rea es llenar esta caja y transformarla en una cueva de Aladino para cual- 
quiera que se asome a ella. Pero si vamos a ser creativos y escribir progra- 
mas interactivos, tendremos que programar. Vayamos directamente a ello. 
¡Felices interacciones! 
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Cadenas literales 


Ya hemos dicho que nos disponemos a enseñar a pensar a nuestro Ams- 
trad. La primera etapa de este proceso va a ser el manejo de entradas. En 
este capítulo y en el próximo veremos cómo el ordenador acepta informa- 
ción y la manipula según nuestras instrucciones. Pero recordemos qué se en- 
tiende por «variable». 


Programa 3.1 


10 INPUT nombre$ 
20 INPUT edad 
30 PRINT nombre$ 
40 PRINT edad 


El programa 3.1 contiene dos variables: una variable literal (string), señala- 
da por un $ (dólar) al final del nombre, llamada nombref$, y una variable 
numérica llamada edad. Cuando se ejecuta el programa, en respuesta al pri- 
mer interrogante ? podemos teclear caracteres alfanuméricos (en otras pa- 
labras, cualquier cosa que queremos) y esta respuesta será almacenada en 
nombre?. 

Al pulsar la tecla ENTER aparece otro signo de interrogación. Esta vez 
el Amstrad está esperando que se teclee un número; su valor se almacenará 
en edad. Las líneas 30 y 40 escriben el contenido de nombre$ y a continua- 
ción el de edad. Usted sin duda ha adivinado que el programa le está pre- 
guntando su nombre y edad. Pero esto no está tan claro para el usuario, 
pues todo lo que ve al ejecutarlo son dos signos de interrogación !. Vale, 
mejoremos el programa: 


Programa 3.2 


10 INPUT'"nombre: ",nombre$ 
20 INPUT"edad: ",edad 
30 PRINT nombre$;" TIENE";edad;" AÑOS" 


Al ejecutar este programa usted puede ver que los interrogantes son más ex- 
plícitos, pues ahora indicamos al usuario que introduzca su nombre y edad. 
Vuelva a ejecutar el programa, pero esta vez conteste con su nombre a am- 
bas cuestiones. Comprobará que la máquina almacena la primera respuesta 
correctamente, puesto que se trata de una cadena, es decir, de caracteres cua- 
lesquiera. Sin embargo, la segunda variable, edad, requiere una respuesta 
numérica, y por tanto conservará el valor 0 ya que no hemos introducido 
datos numéricos. El Amstrad rechaza en esta situación los caracteres alfa- 
béticos y solicita que se vuelva a introducir la información. 

Tras haber recordado brevemente las variables, es hora de jugar un poco 
con cadenas (de caracteres). 


MANIPULACIÓN DE CADENAS 1: LEFTS 


Puesto que uno de los principales objetivos de este libro es centrarnos en 
la introducción de texto y su posterior manejo por el ordenador, repasemos 
algunas instrucciones del BASIC del Amstrad que nos facilitan la manipu- 
lación de cadenas. Pero antes de nada, consideremos el siguiente problema: 
necesita un programa que escriba las letras de mi nombre, añadiendo una 
letra en cada línea de la siguiente forma: 


J 

JE 

JER 
JERE 
JEREM 
JEREMY 


Podríamos escribir un programa como el que sigue: 


Programa 3.3 


10 PRINT"J" 

20 PRINT"JE" 

30 PRINT"JER" 

40 PRINT"JERE" 
50 PRINT"JEREM" 
60 PRINT"JEREMY" 


Pero no llegaremos muy lejos si tenemos que ser tan explícitos con el orde- 
nador. Lo que ocurre con el programa 3.3 es que estamos escribiendo cada 
cosa que ha de aparecer en la pantalla, lo que no es precisamente una for- 
ma de ahorrar tiempo al escribir el programa. Por supuesto, hay un modo 
más rápido, y el BASIC del Amstrad posee las instrucciones necesarias para 
ayudarnos en esta situación. 

Lo que necesitamos es una forma de leer cualquier cadena dada y escri- 
birla letra a letra, aumentando un carácter cada línea como en el ejemplo 
anterior, sin necesidad de todas esas instrucciones PRINT. «¿Cómo puedo 
hacer esto?», le oigo preguntar. La respuesta es sencilla. Usaremos la ins- 
trucción LEFTS. 

El siguiente programa usa LEFTS$ para escribir el primer carácter de la 
cadena introducida por el usuario. Pruébelo. 


Programa 3.4 


10 INPUT"Escribe una palabra: ",palabra$ 
20 PRINT LEFT$(palabra$,1) 


Ahora cambie el número 1 en la línea 20 por otros valores para ver qué ocu- 
rre. Variando este valor, el número de caracteres tomados, de izquierda a 
derecha, de la palabra será mayor o menor. Eche un vistazo a la figura 3.1. 

Nuestra siguiente tarea es producir el mismo efecto sin tener que utilizar 
una instrucción PRINT para cada línea. Introduzca en su ordenador el pro- 
grama 3.5: 


Programa 3.5 


10 frase$="EL VELOZ ZORRO MARRON" 
20 contador=1 

30 PRINT LEFT$(frase$ contador) 
YO contador=contador+1:GOTO 30 


Ejecute el programa y ...?! Ahora el problema radica en que hemos aumen- 
tado el valor de contador cada vez, y cuando excedemos del número de ca- 
racteres de la cadena continuamos escribiendo únicamente frase$. Cambie 
la línea 40 por: 


40 contador=contador+1:1F contador>19 THEN END E 
LSE 30 


palabra$ = ORDENADOR en la pantalla 


PRINT LEFTS(palabras,1) 
PRINT LEFTS(palabra$,2) 


PRINT LEFTS(palabras$,3) ORD 
PRINT LEFTS(palabra$,4) ¡ ORDE 
PRINT LEFTS(palabra$,5) | ORDEN 
PRINT LEFTS(palabras,6) ORDENA 
PRINT LEFTS(palabras,7) ORDENAD 
PRINT LEFTS(palabra$,8) ORDENADO 


PRINT LEFTS(palabrasS,9) ORDENADOR 


Figura 3.1 Efecto de LEFTS$. 


¡Por fin el efecto deseado! ¿O aún no? Hay todavía un problema. Para pa- 
rar el programa cuando todos los caracteres han sido escritos, es preciso con- 
tar el número de caracteres que tiene frase$ (incluyendo los espacios); ésta 
es la razón de la instrucción IF contador>19 de la línea 40. 

Sin embargo, no siempre conoceremos de antemano el número de carac- 
teres de la cadena. Una vez más, el BASIC del Amstrad viene al rescate con 
una instrucción que permite al ordenador determinar la longitud de una ca- 
dena dada. 


MANIPULACIÓN DE CADENAS 2: LEN 


La instrucción LEN proporciona esa información. En el programa 3.6 usa- 
mos LEN para obtener el número de caracteres contenidos en entrada$. Int- 
rroduzca primero una palabra; después vuelva a ejecutar el programa e in- 
troduzca una pequeña frase. 


Programa 3.6 


10 MODE 2 

20 INPUT"escriba una palabra o fPase: ",entrada$ 
30 PRINT"El numero de caracteres de esa cadena e 
s";LEN(entrada$) 


Si teclea unas cuantas palabras observará que LEN cuenta los espacios exac- 
tamente igual que los demás caracteres. Los espacios son, pues, tenidos en 
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cuenta en este ejemplo, y es importante tener esto presente, ya que más tar- 
de echaremos un vistazo más detenido a los espacios entre palabras. Pero 
volvamos a LEN. 

En el programa 3.5 nuestro problema era que no conocíamos el número 
de caracteres de la cadena. Reescribamos el programa usando LEN: 


Programa 3.7 


10 INPUT frase$ 

20 FOR contador=1 TO LEN(frase$) 
30 PRINT LEFT$(frase$ contador) 
40 NEXT 


Observe que he introducido un bucle FOR-NEXT. Si aún no ha utilizado 
la instrucción FOR-NEXT, un vistazo al manual del usuario le explicará 
sus posibles aplicaciones. Dicho brevemente, el bucle varía desde el primer 
carácter de frase$ hasta la longitud total de la cadena, que ha sido determi- 
nada por LEN en la línea 20. 

El programa 3.7 no sólo es más eficiente que el programa 3.5, sino tam- 
bién más rápido. Esto puede ser de suma importancia en programas más 
grandes en los que se lleven a cabo muchos procesos. Pero dejemos esto 
para más adelante. Es el momento de introducir otro par de instrucciones 
BASIC. 


MANIPULACIÓN DE CADENAS 3: RIGHTS Y MIDS 


Si ha entendido cómo funciona LEFTS (izquierda), la siguiente instrucción 
le resultará muy fácil. RIGHTS (derecha) es, como su nombre indica, una 
instrucción de manejo de cadenas; por si no lo ha adivinado todavía, realiza 
la misma función que LEFTS, sólo que a la inversa. Bueno, ¡no exactamen- 
te al revés! Volvamos al programa 3.4, pero cambiando LEFT$ por RIGHT$ 
en la línea 20: 


Programa 3.8 


10 INPUT"Escriba una palabra: ",palabra$ 
20 PRINT RIGHT$(palabra$,1) 


RIGHTS no trabaja del todo como usted pensaba. Con el valor 1 en la lí- 
nea 20, RIGHTS da el último carácter de la cadena. Sin embargo, pruebe 
con otros valores. El resultado no es de atrás hacia delante. ¿Está claro? Ob- 
serve la figura 3.2. 


palabras=JEREMY 


en la pantalla 


PRINT RIGHTS(palabras, 1) 
PRINT RIGHTS(palabrasS,2) 
PRINT RIGHTS(palabras,3) 
PRINT RIGHTS(palabra$,4) 
PRINT RIGHTS(palabras,5) 
PRINT RIGHTS (palabras, 6) 


Figura 3.2 Efecto de RIGHTS. 


La razón por la que digo que puede no estar claro es que se podría esperar 
que el resultado de la instrucción RIGHTS (palabra$,3) fuese Y ME; en otras 
palabras, que escribiese la cadena comenzando por la derecha y hacia la iz- 
quierda, pero, como puede ver en la figura 3.2, esto no es así. Si aún no 
está seguro acerca del uso de RIGHTS, pruebe los programas 3.4, 3.5 y 3.7 
sustituyendo LEFT$ por RIGHTS$ cada vez que aparezca. 

Examinemos ahora MIDS. Al igual que LEFTS$ y RIGHTS, es una fun- 
ción literal; pero, a diferencia de estas instrucciones, lleva asociados tres ar- 
gumentos; por ejemplo: MIDS (ejemplo$,X, Y). X e Y son dos de los argu- 
mentos y los explicaré por orden. Supongamos que ejemplo$ contiene la ca- 
dena INTERACCIÓN. Así es como trabaja MID$: 

El primer argumento es igual que el LEFTS$ y RIGHTS, o sea, el nombre 
de la variable literal que va a ser tratada; en nuestro caso, ejemplo$. El se- 
gundo valor actúa como un indicador de la posición de partida. Por tanto, 
el valor 6 significa que la cadena que vamos a extraer comienza en esta po- 
sición, ocupada en este caso por la letra A. 

Finalmente, el tercer valor (representado por Y) indica el número de ca- 
racteres que se deben tomar a partir de la posición de X (incluido el carác- 
ter que está en esa posición). Como muestra la figura 3.3, se toman las pri- 
meras seis letras desde la posición X (ocurre que sólo quedan seis caracteres 
en esta cadena). Pongamos esto en un programa: 


Programa 3.9 


10 CLS 
20 ejemplo$="INTERACCION" 


11 


ejemplo$=INTERACTION INTERACCION 


| 
| 


MIDS (ejemplos, X, 6) YYYYYY 


MIDS (ejemplos, 6, Y) 


ACCION 


Figura 3.3 Función de MIDS. 


30 INPUT"Donde quiere poner el indicador (es dec 
1 LA 

HO INPUT"Numero de caracteres a partir de esa po 
sicion: ",y 

50 PRINT MID$(ejemplo$,x,y) 


Ejecute el programa introduciendo diferentes valores y vea cómo los valo- 
res de x e y alteran la palabra impresa por la línea 50. (Nótese que he uti- 
lizado letras mayúsculas y minúsculas para x e y, al objeto de demostrar 
que esto es indiferente para el ordenador; de hecho, podría combinar am- 
bas formas y aún serían aceptadas.) La función MIDS, junto con las otras 
funciones literales antes mencionadas, es extremadamente útil; volveré so- 
bre ellas más adelante. Dejemos por un momento la manipulación de cade- 
nas para fijar nuestra atención en otro aspecto del manejo de las entradas. 


MENÚES 
No, no estoy hablando de comida. He mencionado en el Capítulo 2 que 


una parte importante de un programa interactivo es la visualización en pan- 
talla. Parte fundamental de esta exposición es con frecuencia un menú de 
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opciones entre las que el usuario debe elegir, de modo que vamos a comen- 
zar escribiendo el menú de opciones para nuestro próximo programa. Te- 
clee el programa, respetando los números de línea que aquí aparecen, pues 
vamos a desarrollar un programa en varias etapas. 


Programa 3.10a 


50 CLS 

60 PRINT"CODIGOS ASCII" 
70 PRINT,,"1 Codigo ASCII a caracter" 
80 PRINT,,"2 Caracter a codigo ASCII" 
90 PRINT,,,,"Elija (1-2)" 

100 a$=INKEY$ 

110 a=VAL(a$):IF a<1 OR a>2 THEN 100 
120 PRINT a 

130 ON a GOTO 30,40 

140 RETURN 


Añada también las siguientes líneas: 


10 MODE 1: ZONE 40 
20 GOSUB 50 


Ejecute el programa. Como no está completo, provocará el mensaje de error 
NO SUCH LINE (no hay tal línea) si pulsa el número 1 o el 2. Ejecútelo 
unas cuantas veces y observe que sólo responde a esos dos números. Si te- 
clea cualquier otro número, el ordenador lo ignora. De momento no se preo- 
cupe de cómo trabaja el programa; yo le iré explicando cómo funciona esta 
parte, y también el resto del programa, en lo que queda de este capítulo y 
en el siguiente. 

Una cosa que no debería haberle pasado inadvertida es el extraño título 
que puede ver en la pantalla: CODIGOS ASCII. ¿Quién o qué es ASCII? 
Descubrámoslo. 


ASCHuU 


ASCUH (pronúnciese AS-KI) son las siglas de American Standard Code for 
Information Interchange (Código americano estándar para el intercambio 
de la información). Intente decir esto varias veces. ¡No es de extrañar que 
se abrevie! Pero, ¿qué significa todo esto? 

Como seguramente habrá descubierto ya, todos los ordenadores son di- 
ferentes; de BASIC, por ejemplo, hay muchas versiones implementadas y 
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todas ellas tienen peculiaridades. Una de las pocas normas adoptadas por 
la mayor parte de los fabaricantes de ordenadores es el uso del conjunto de 
caracteres ASCII. ASCHU es un código usado por el ordenador para repre- 
sentar caracteres y códigos de control. Para nuestros propósitos, nos cen- 
traremos en el juego de caracteres del teclado. Si no lo ha hecho ya, grabe 
con SAVE el programa menú y a continuación teclee el programa 3.11. 


Programa 3.11 


1 REM ia-17 

10 FOR ascii=32 TO 126 
20 PRINT CHRé(ascii); 
30 NEXT 


Este programa escribe los caracteres representados por el valor ASCH co- 
rrespondiente. Seguramente habrá observado que he utilizado una instruc- 
ción de BASIC, CHR$, en el programa 3.11. Para explicar el efecto de 
CHR$, cargue con LOAD el programa 3.10a otra vez y añada lo siguiente: 


Programa 3.10b 


240 CLS:INPUT"Escriba un codigo ASCII. Pulse ENT 
ER: *,codigo 

250 PRINT 

260 PRINT codigo;"es el codigo ASCII de “";CHR$( 
codigo); "'" 


270 PRINT,,,,"Pulse “S” para continuar" 

280 a$=INKEY$:1F a$="s" OR a$="S" THEN 290 ELSE 
280 

290 RETURN 


Añada también la línea 
30 GOSUB 240 


Ahora grabe el programa y ejecútelo. Se le pedirá que introduzca un código 
ASCII numérico. Teclee cualquier número entre 32 y 126 (éstos son los có- 
digos que representan el conjunto de caracteres). La conversión del número 
ASCII en un carácter es realizada por la función CHRS$ de la línea 260. 

La acción de CHR$ es producir un carácter a partir de un número dado. 
Este número es el valor ASCII del carácter; es decir, si usted introduce 65, 
la respuesta será A, porque el valor ASCII 65 es el código del carácter A. 

De acuerdo. ¿Y cómo se convierte un carácter en un número ASCIT? Esto 
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se puede hacer con la función ASC. La utilizaremos al final de nuestro pro- 
grama. Asegúrese de que tiene el programa cargado (LOAD) en su Ams- 
trad antes de continuar: 


Programa 3.10c 


170 CLS:PRINT"Introduzca un caracter: " 

180 a$=INKEY$:IF ag$<>"" GOTO 190 ELSE 180 

190 PRINT"El codigo ASCII de Usaf;n' es"ASC(a$) 
200 PRINT,,"Pulse “S” para continuar" 

210 a$=INKEY$:1F a$="S" OR a$="s" GOTO 220 ELSE 
210 

220 RETURN 


Escriba también la línea 

40 GOSUB 170: GOSUB 50 
y cambie la línea 30 a 

30 GOSUB 240: GOSUB 50 


Ahora el programa está completo. Grábelo (SAVE) y después ejecútelo 
(RUN). Elija la opción 2 e introduzca un carácter cualquiera. La línea 190 
efectúa la conversión del carácter que está contenido en la cadena af. 
ASC(a$) da el código ASCII del carácter contenido en a$. Usted puede ver 
cómo funciona tecleando la siguiente línea: 


PRINT ASC(“J”) 


Cambiando el carácter se producirá un código diferente. 

¿Qué ocurre cuando a$ contiene más de un carácter? Bien, la función 
ASC sólo da el valor del primer carácter. Se estará seguramente preguntan- 
do si he olvidado explicar los demás elementos del programa. ¡Tranquilo! 
Las restantes instrucciones las explicaré en el próximo capítulo. De momen- 
to observe en la figura 3.4 un diagrama de flujo de los mecanismos del 
programa. 

Vea si puede descubrir qué defecto tiene el programa. Recuerde lo que 
dije en el capítulo 2 acerca de prever todas las posibles entradas que pueda 
hacer el usuario. Volveré sobre este programa en el capítulo 6, dedicado a 
la detección de errores. ¡Creo que tiene suficientes pistas por ahora! 


Comienzo 


Elegir la 
opción 1 o 2 


Subrutina 
ASCII 


Entrada 
de un valor, 


PRINT 
carácter 


opción 2 


Subrutina 
código 


Entrada 
de un 
carácter 


PRINT 
el código 


ASC 


Figura 34 Diagrama de tlujo del programa 3.10. 
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Más cadenas 


Un aspecto importante del desarrollo de un programa interactivo es asegu- 
rarse de que el ordenador lea todo lo que el usuario teclee. Usted puede pen- 
sar que ya hemos dejado este punto resuelto con la instrucción INPUT, pero 
no es así. Para ver lo que quiero decir, escriba el programa 4.1: 


Programa 4.1 


10 CLS 

20 GOSUB 100: INPUT primerafrase$ 

30 GOSUB 100:LINE INPUT segundafrase$ 

YO PRINT,,"primerafrase$ = “";¡primerafrase$;"'"" 
50 PRINT,,"segundafrase$ = “";segundafrase$;"'"" 
90 END 

100 PRINT,,"Teclee lo siguiente:","MI AMSTRAD ES 
UN GRAN ORDENADOR" 

120 RETURN 


Ejecute este programa y podrá ver que ambas variables contienen la misma 
frase que hemos introducido. No obstante, ejecútelo otra vez, pero insertan- 
do en esta ocasión una coma en la frase tal como se indica a continuación: 


MI AMSTRAD, UN GRAN ORDENADOR 


¿Ve la diferencia? Cuando usamos INPUT en la línea 20, la variable reten- 
drá sin problemas el contenido íntegro de la cadena, siempre que no haya 
ninguna coma en la frase. Pero cuando se inserta una coma, INPUT recha- 
za toda la cadena introducida. Para resolver este problema el BASIC del 
Amstrad posee la instrucción LINE INPUT, que acepta cualquier cosa que 
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se teclee. He puesto LINE INPUT en la línea 30 del programa; cuando eje- 
cute el programa comprobará que todo lo que usted teclee, a pesar de las 
comas, es aceptado. 

LINE INPUT no sólo acepta comas,:sino que también reconoce espacios a 
la izquierda. Con esto quiero indicar que si usted teclea unos cuantos espa- 
cios antes de su frase, LINE INPUT incluirá esos espacios iniciales en se- 
gundafrase$, mientras que INPUT no lo hará. Ensaye escribiendo una frase 
con espacios por delante para comprobar la diferencia. 

Pero, de todos modos, ¿por qué todo este enredo? Bueno, el desarrollo 
de nuestros programas interactivos tiene por objeto permitir al usuario co- 
municarse libremente con el ordenador. Para ello el usuario debe gozar de 
libertad para teclear cualquier cosa que desee, y es muy probable que teclee 
alguna frase que contenga una coma. Si el ordenador tiene que analizar la 
entrada del teclado debe ser capaz de entender todo lo que se haya teclea- 
do, y esto no es siempre posible con la instrucción INPUT, como acabamos 
de ver. LINE INPUT asegura que todo lo tecleado se almacena en una de- 
terminada cadena. 


RECONOCIMIENTO DE UNA PALABRA FAMILIAR: INSTR 


Ahora vamos a afrontar otro problema que nos surge en la creación de un 

programa interactivo: cómo reconocer una determinada palabra dentro de 
una secuencia de caracteres. LINE INPUT puede asegurar que toda pala- 
bra tecleada sea captada, pero ¿cómo localizar una palabra concreta en una 
frase? No es tan difícil como pudiera parecer de entrada. Usted ya estará 
imaginando que alguna instrucción del Amstrad servirá para resolver este 
problema. La instrucción es INSTR. 

Lo que INSTR hace es buscar en una cadena (en este caso, en una frase 
larga que hemos introducido) una palabra determinada. Cuando ha encon- 
trado esta palabra (o grupo de caracteres) INSTR determina la posición del 
primer carácter de la palabra dentro de la cadena. 

Aclarémoslo con un ejemplo. Teclee el programa 4.2. 


Programa 4.2 


10 CLS:ZONE 40 

20 PRINT"Escriba una frase" 

30 LINE INPUT a$ 

HO b$="BASIC" 

50 encuentro=INSTR(a$,b$) 

60 PRINT,,"Valor de la variable “encuentro” = "; 
encuentro 


70 PRINT,,"Usted escribio: ",;a$ 

80 IF encuentro=0 THEN 120 ELSE 90 

90 PRINT SPC(encuentro-1);""" 

100 PRINT"La coincidencia se encuentra aqui" 

110 END 

120 PRINT,,"La cadena “";b$;"” no ha sido encont 
rada": END 


Si ahora teclea usted algún viejo refrán, lo probable es que reciba el men- 
saje «The string BASIC was not found» («La palabra BASIC no ha sido en- 
contrada»). Esto se debe a que el programa está comprobando la existencia 
de una cadena, en este caso la cadena alfanumérica BASIC que se ha asig- 
nado a b$ en la línea 30. Ejecute de nuevo el programa y teclee lo siguiente: 


ESTE ES UN BASIC DIFERENTE 


Verá cómo esta vez la cadena coincide con una palabra contenida en la fra- 
se. El valor de la variable «encuentro» es la posición en que el principio de 
la palabra BASIC se encuentra dentro de la frase tecleada. La línea del pro- 
grama que hace todo el trabajo es la 50. INSTR(a$,b$) genera un valor. 
Si localiza una cocincidencia; es decir, si la variable b$ está en la cadena 
introducida como a$, entonces INSTR determina la posición y asigna ese 
valor a la variable numérica «encuentro». En cambio, si no hay coinciden- 
cias, «encuentro» sigue siendo 0. La línea 80 utiliza este resultado y de acuer- 
do con él imprime el mensaje apropiado. Vea en la figura 4.1 un diagrama 
de flujo del programa. 


INSTR es una instrucción muy útil y, como veremos más adelante, desem- 
peña un papel crucial en la búsqueda de palabras clave o frases que el or- 
denador pueda entender. Más adelante volveremos a este tema. Ahora re- 
trocedamos un poco para ver algunas instrucciones que he utilizado en pro- 
gramas de este capítulo y del capítulo 3 sin la debida explicación. 


PRESENTACIÓN EN PANTALLA 1: INKEY$ 


Si usted ejecutó el programa menú del capítulo 3, recordará que todo esta- 
ba preparado para el usuario y, en la medida de lo posible, bastaba con pul- 
sar una tecla para continuar con el programa. Una parte importante de todo 
programa es la presentación de información en la pantalla y las facilidades 
que se dan al usuario para que introduzca los datos. Cuanto más favorables 
sean estos aspectos, más interactivo resultará el programa. Ya he utilizado 
algunas instrucciones orientadas a este fin; ahora voy a explicarlas. 


Bs$="'BASIC” 


encuentro= 
INSTR(AS,BS) 


ESCRIBIR 
VALOR DE 
encuentro 


ESCRIBIR QUE 
NO ENCUENTRA 
LA CADENA 


ESCRIBE DONDE 
ENCUENTRA 


LA COINCIDENCIA 


Figura 4.1 Diagrama de flujo. 
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Vuelva al programa 3.10 y observará que he usado en las líneas 120 y 190 
la instrucción INKEYS$. Cuando se ejecuta esta instrucción, el ordenador 
examina el teclado para ver si alguna tecla está siendo pulsada. Si es así, se 
asigna el carácter correspondiente en la variable que figura a la izquierda 
de signo igual: 


Programa 4.3 


10 caracter$=INKEY$:IF caracter$="" THEN 10 
20 PRINT"Ha tecleado ";caracter$ 


Si no hay ninguna tecla pulsada, INKEYS$ da la cadena vacía. Para asegu- 
rar de que el programa espere hasta que se pulse una tecla, el programa vuel- 
ve a línea 10. Sin embargo, no es necesario utilizar posteriormente la varia- 
ble almacenada, como yo he hecho en la línea 20 del programa 4.3. La ins- 
trucción se puede usar también con objeto de introducir una pausa en el pro- 
grama hasta que se pulse una tecla. Pruebe el programa 4.4: 


Programa 4.4 


10 CLS 

20 PRINT"Estoy esperando que pulse una tecla" 
30 a$=INKEY$:1F a$="" THEN 30 

40 PRINT"Ya era hora!" 


La línea 10 borra la pantalla y el programa se queda en la línea 30 hasta 
que se pulse una tecla. Así pues, INKEY$ proporciona métodos de exami- 
nar directamente el teclado para ver si se está pulsando alguna tecla y, en 
tal caso, determinar cuál es esta tecla. 


PRESENTACIÓN EN PANTALLA 2: ZONE, TAB Y SPC 


Hay dos instrucciones que se pueden utilizar para escribir espacios dentro 
de una instrucción PRINT. Se trata de TAB y SPC. TAB se usa combinada 
con la instrucción PRINT. Significa «tabulación» y permite al usuario es- 
pecificar la posición a la que quiere llevar el cursor en una sentencia PRINT. : 

TAB lleva un argumento asociado. Así, PRINT TAB(5); moverá el cur- 
sor a la columna número $ de la línea actual. SPC actúa de una forma pa- 
recida, pero no necesita el signo de punto y coma al final de la instrucción. 
La figura 4.2 muestra ejemplos de las instrucciones TAB y SPC y sus efec- 
tos en la pantalla del monitor. 
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10 15 


1 5 
AI A E E 
Ma 


PRINT TAB(3); “VINE” 


PRINT SPC(O);"JEREMY”* 
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Figura 4.2 Efecto de las instrucciones TAB y SPC. 


He utilizado SPC en el programa 4.2 para intercalar el número correcto de 
espacios en una línea antes de escribir una palabra. Esto asegura que las pa- 
labras queden alineadas una debajo de otra. (Vuelva atrás y ejecute el pro- 
grama 4.2 si no recuerda este detalle.) SPC y TAB son dos funciones muy 
útiles que facilitan la construcción rápida de pantallas bien presentadas. 

El lector habrá notado que he usado el comando ZONE, y volverá a ver- 
lo muchas veces en este libro. ZONE se encarga de cambiar la anchura de 
la «zona» en la que se escribe cuando se usa la instrucción PRINT. Así, cuan- 
do usamos una coma para saltar a la siguiente zona de escritura (es decir, 
PRINT), podemos decir al ordenador dónde empieza esta zona dando su 
anchura como argumento de ZONE. En el caso de nuestros programas, nor- 
malmente hacemos que el programa interprete las comas que siguen a una 
instrucción PRINT como «escribe una línea en blanco», pues hemos puesto 
la instrucción ZONE 40. Recuerde, sin embargo, que el número que pon- 
gamos después de ZONE para conseguir este efecto depende del modo de 
pantalla que estemos usando. Como el modo 1 escribe en 40 columnas, ne- 
cesitamos dar saltos de 40 espacios. Obviamente, cambiaremos este número 
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de acuerdo con el modo en que estemos trabajando y los efectos que desee- 
mos conseguir. 

Ya hemos visto cómo trabaja ASCII y la importancia que puede tener la 
conversión entre variables numéricas y alfanuméricas. Como usted sabe, una 
variable numérica no puede leer una entrada alfanumérica. No obstante, 
hay una forma de convertir una cadena para que pueda ser leída. 


CONVERSIÓN DE CADENAS: VAL y STR$ 


Consideremos un problema. Yo deseo introducir por el teclado un número 
utilizando una variable alfanumérica y convertirla después de tal manera 
que una variable numérica pueda manejar el dato introducido. ¿Podemos 
hacerlo? No tiene mérito adivinar que esto es posible; el programa 4.5 mues- 
tra cómo: 


Programa 4.5 


10 a$=INKEY$:IF a$="" THEN 10 

20 a=VAL(a$) 

30 IF a<1 OR a>»5 THEN 10 

yO PRINT a 

50 ON a GOTO 100,110,120,130,140 


El programa no está completo y por consiguiente se estrellará en la línea 
50. La línea 10 espera por el dato; en la línea 20 es donde tiene lugar la con- 
versión. La función VAL (significa «valor») opera sobre a$, que debería con- 
tener un número, y lo t ransforma en un número real que asigna a la va- 
riable numérica «a». Para cerciorarse de que se ha introducido un número 
perteneciente a un determinado intervalo, la línea 30 comprueba que el va- 
lor de «a» no está fuera del margen especificado. Si el número es incorrecto, 
el programa vuelve a la línea 10 en espera de que se introduzca un número 
correcto. El programa 4.5 es la base de la subrutina GOSUB 50 del pro- 
grama 3.10a del capítulo 3. VAL convierte variables literales en variables 
numéricas; la acción inversa la realiza la función STR$. Teclee el programa 
4.6: 


Programa 4.6 


10 numero=1.2 
20 PRINT numero*2 
30 a$=STR$(numero) 
40 PRINT a$*%2 
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Para demostrar que el número 1.4 ha sido transformado a una variable li- 
teral, la línea 20 realiza una función matemática sobre una variable numé- 
rica y, por supuesto, funciona. Sin embargo, al llegar a la línea 40, el orde- 
nador genera un mensaje de error porque la máquina está intentando efec- 
tuar una multiplicación con una variable literal. En la línea 30, STR$ ha 
convertido la variable numérica en una cadena, asignando la cadena resul- 
tante a a$. Para comprobar el contenido de a$ teclee PRINT af. 

Estas funciones del BASIC del Amstrad dan mayor flexibilidad a su pro- 
gramación y, como le he demostrado con el programa menú, pueden ser 
muy útiles. 


OPCIONES EN LOS PROGRAMAS: ON 


El programa 4.5 incluye una instrucción en la que quiza no se haya fijado: 
ON. Esta instrucción permite alterar el orden de ejecución de un programa, 
saltando a una línea específica dependiendo del valor de cierta variable. Por 
ejemplo, en el programa menú, en función del número introducido el pro- 
grama salta a la rutina adecuada. Por tanto, una línea tal como 


ON tecla GOTO 220, 250, 800 


significa que si el valor numérico de «tecla» es igual a 1, entonces el pro- 
grama va a la línea 220; si «tecla» es 2, va a la línea 250, etc. La figura 4.3 
ilustra el funcionamiento de esta instrucción. 


La necesidad de dar opciones es de lo más común en un programa, y ON 
proporciona al programador una forma de ofrecer diversas opciones sin re- 
currir a gran cantidad de instrucciones IF-THEN. Observe el programa 4.7, 
pero no lo teclee (a menos que le guste el trabajo por el trabajo). 


Programa 4.7 


10 INPUT"Teclee el numero que elige: ", eleccion 
20 IF eleccion=1 THEN GOTO 100 

30 IF eleccion=2 THEN GOTO 24 

HO IF eleccion=3 THEN GOTO 310 

50 IF eleccion<1 OR eleccion>3 THEN 10 


Incluso un ejemplo tan sencillo como éste demuestra que ON es mucho más 
rápido y cómodo. Otra aplicación de ON es la detección de errores (capí- 
tulo 6). 
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ON tecla GOTO 289, 250, 229 
1 2 3 


tecla 


programa 


Figura 4.3 La instrucción ON. 


REPETICIONES: WHILE ... WEND e INKEY$ 


Ya conocemos un tipo de lazo, el FOR-NEXT. Pero hay otra instrucción 
que se puede utilizar en situaciones en las que se quiera repetir un conjunto 
de acciones hasta que se cumpla cierta condición. Se trata de la instrucción 
WHILE ... WEND. Veamos el ejemplo del programa 4.8. 


Programa 4.8 


10 x=0 

20 WHILE x<15 
30 PRINT x* 
HO x=x+1 

50 WEND 


La línea 10 pone x a cero, y la línea 40 incrementa su valor. La línea más 
importante es la 20, que dice a la máquina que mientras x sea menor que 
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15 todas las instrucciones que siguen hasta llegar a la instrucción WEND 
deben ser ejecutadas. En este caso el bucle se repite hasta que x es igual a 
15. 

WHILE (mientras que) señala el principio del bucle. WEND da por ter- 
minado el lazo cuando se cumple la condición. 

WHILE ... WEND se puede usar en muchas otras circunstancias; por 
ejemplo, para detectar la pulsación de cierta tecla. Para ello combinaremos 
WHILE ... WEND con INKEYS. Escriba el programa 4.9. 


Programa 4.9 


10 x$=INKEY$ 

20 WHILE x$="" 

30 GOTO 10 

4O WEND 

50 PRINT"HA PULSADO LA TECLA ";x$ 


El bucle de las líneas 10 a 40 se repite hasta que se pulsa una tecla. La fun- 
ción INKEY$, como hemos explicado, detecta si se está pulsando una tecla. 
Cuando esto ocurre, el carácter pulsado se asigna a x$ y el programa con- 
tinúa. En otro caso, la instrucción INKEYS se ejecuta indefinidamente, pues 
está situada en un bucle WHILE ... WEND, lo que hace que el lazo se re- 
pita hasta que se pulse una tecla. 

Estas funciones pueden ser muy útiles para determinar si se está pulsando 
cierta tecla, y es una buena forma de asegurar que sólo se acepte la tecla 
especificada. Recordaremos esto cuando hablemos de la detección de erro- 
res en el capítulo 6. 

Con esto termina nuestro repaso de la manipulación de cadenas. Si usted 
ha entendido todo lo tratado en estos dos últimos capítulos, pronto podrá 
crear programas que actúen con (y no contra) el usuario. 


a 


Palabras, palabras, palabras 


Aun con la aparición de nuevos sistemas de comunicación, área de impor- 
tancia creciente en informática, la forma fundamental de comunicación si- 
gue siendo la misma: la palabra escrita. O, para ser más exactos, la palabra 
sobre la pantalla, que representa la máxima comodidad desde el punto de 
vista de nuestra comunicación con las máquinas. Hasta ahora en este libro 
nos hemos centrado en la introducción de información en el ordenador y 
en la manipulación por el mismo de estos datos. Pero hemos trabajado úni- 
camente con pequeñas cantidades de información sueltas, que no nos han 
servido de mucho. Ahora necesitamos abordar el problema de almacenar 
grandes cantidades de datos a los que el ordenador pueda recurrir en cual- 
quier momento. 


VECTORES 


Imagine que tenemos que archivar una relación de los puestos finales de los 
pilotos de coches de una determinada carrera. Necesitamos el ordenador 
para que nos diga quién terminó en un puesto determinado. ¿Cómo vamos 
a introducir esta información? Digamos que tenemos que almacenar los 
nombres de los seis primeros corredores. Usando lo que ya hemos aprendi- 
do anteriormente, emplearíamos seis variables distintas para contener la in- 
formación. Nuestro programa sería algo parecido a esto: 


Programa 5.1 
10 CLS:PRINT"Introuzca los nombres de los conduce 
tores"; 
20 PRINT"del 1 al 6" 
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30 INPUT numero1$ 
40 INPUT numero2$ 
50 INPUT numero3$ 
60 INPUT numero4$ 
70 INPUT numero5$ 
80 INPUT numero6$ 


90 CLS 
100 INPUT"Que puesto quiere comprobar?" ,comproba 
r 


110 ON comprobar ADE 120,130,140,150,160,170 
120 PRINT"Puesto : "snumero1$: GOSUB 180 

130 PRINT"Puesto 2: ";¡numero2$:GOSUB 180 

140 PRINT"Puesto "numero3$:GOSUB 180 

150 PRINT"Puesto " :numero4$:GOSUB 180 

160 PRINT"Puesto 5: "¿numero5$:GOSUB 180 

170 PRINT"Puesto 6: ";¡numero6$:GOSUB 180 

180 PRINT"Pulse barra espaciadora para continuar 
" 

190 a$=INKEY$:IF a$<>" " THEN 190 

200 GOTO 90 


DOE O 


Pero este camino no conduce a ningún sitio. En primer lugar, he definido 
seis variables distintas para contener los nombres de los conductores. Pero, 
¿qué ocurriría si tuviera un centenar de nombres? Tendría que dedicar a 
cada respuesta una línea diferente. Comunicar al ordenador el número que 
queremos comprobar no es fácil; la única solución es preparar una contes- 
tación diferente para cada posible entrada. Bien, no necesito decirle que esto 
es ineficaz. Entonces, ¿qué se puede hacer para aliviar las penalidades del 
programador? 

La respuesta está en la introducción de vectores. ¿Qué es un vector? Pue- 
de considerar que un vector es una tabla con información, algo así como 
tener una ficha con una serie de líneas de información escritas en ella. Véa- 
se la figura 5.1. 


En la figura 5.1 sólo se ve una ficha. La ficha lleva un título que dice VEN- 
CEDORES. En cada línea hay un número de posición y un nombre. Para 
que el ordenador sepa que queremos teclear hasta seis nombres, comunica- 
mos a la máquina que la tabla tiene seis elementos. Esto se hace con la ins- 
trucción DIM. Así, nuestra primera línea será: 


10 DIM vencedor$(6) 


Lo que hemos hecho es preparar un vector unidimensional que podrá con- 
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VENCEDORES 


MIGUEL 
DAVID 
JUAN 
PEDRO 
JOSE 
LUIS 


Figura 5.1 Vectores. 


tener un máximo de seis datos. Ahora podemos completar el resto del 
programa. 


Programa 5.2 


20 PRINT"Introduzca los nombres de los conductor 
es " 

30 PRINT"del 1 al 6" 

HO FOR entrada=1 TO 6 

50 INPUT vencedor$(entrada) 

60 NEXT 

10 CLS 

80 INPUT"Que puesto quiere comprobar " comprobar 
90 PRINT"En el puesto";comprobar;'"entro "vencedo 
r$(comprobar) 

100 PRINT"Pulse barra espaciadora para continuar 
“ 

110 a$=INKEY$:1F a$<>" " THEN 110 

129 GOTO 70 
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Hemos introducido toda nuestra información en una única variable, vence- 
dor$, pero en seis lugares diferentes. Mediante el bucle FOR-NEXT se va 
aumentando el valor de «entrada» para «apuntar» a los seis elementos del 
vector: vencedor$(1), vencedor$(2), etc. Además de haber ahorrado tiempo 
y espacio en la parte correspondiente a la introducción de los datos, tam- 
bién podemos ahorrar tiempo cuando recuperemos la información. La línea 
90 localiza y escribe el dato correcto, ahorrando de esta forma mucho es- 
pacio. Este programa tendrá el mismo tamaño para seiscientos datos que 
para seis. Lo único que se habría que cambiar es la longitud del vector, y 
esto podemos hacerlo sin más que modificar la línea 10, es decir, DIM ven- 
cedor$(600), y el límite superior del bucle FOR-NEXT, ¡Imagínese la escri- 
tura de un programa para conjuntos de datos verdaderamente grandes uti- 
lizando el primer método! 

Este último es más eficaz, pero hay situaciones en las que necesitamos in- 
troducir varios bloques de información relacionados con un suceso concre- 
to. Volviendo a nuestro ejemplo de carreras automovilísticas, ahora quere- 
mos que:también aparezca en pantalla el país a que pertenece cada conduc- 
tor. Podríamos añadir la siguiente línea al programa: 


55 INPUT “Introduzca el país”, paisS(entrada) 
y cambiar las líneas 10 y 90 por las siguientes: 


10 DIM vencedor$(6), país$(6) 
90 PRINT “en el puesto”; comprobar; “entró”; venced 
orf(comprobar); SPC(4);“(”;paísS(comprobar)*)” 


Pero a medida que añadamos más datos tendremos que aumentar el núme- 
ro de vectores y esto puede llegar a desbordarnos. Sería mucho más fácil si 
pudiésemos incorporar la información sobre el país en la misma variable 
que el nombre. Por supuesto, podemos hacerlo. Lo que vamos a utilizar aho- 
ra es un vector bidimensional o, si usted prefiere, una matriz o tabla de do- 
ble entrada. Observe la figura 5.2. 


Cambiemos el vector de la línea 10: 
10 DIM vencedor$(6,1) 


De esta forma le decimos al ordenador que vencedor$ tiene doble entrada. 
Cambie la línea 50: 


50 INPUT “Introduzca el nombre ”, vencedor$(entrada,0) 


30 


DIM  vencedor$ 


MIGUEL ESPAÑA 


DAVID ESPAÑA 
JUAN MEJICO 
PEDRO : ARGENTINA 
JOSE ESPAÑA 
LUIS VENEZUELA 


Figura 5.2 Vector bidimensional. 


y añada esta otra: 
55 INPUT “Introduzca el país ”, vencedor$(entrada, 1) 
Finalmente, cambie la 90: 


90 PRINT “En el puesto”; comprobar;“entro”;, venced 
or$(comprobar,0); SPC (4); “(”; vencedorf(comprobar, 1)*)” 


He puesto las entradas en dos líneas diferentes para mostrarle más clara- 
mente lo que está ocurriendo. En la línea 50 está vencedor$(1,0), que se igua- 
la al nombre. En la 55 está vencedor$(1,1), donde se pone el país. El bucle 
FOR-NEXT incrementa el primer valor hasta que se han introducido seis 
nombres y los correspondientes países. La figura 5.2 resume lo que queda 
almacenado en cada celdilla de la variable. Pero no tenemos por qué limi- 
tarnos a matrices bidimensionales. Podemos, con la misma facilidad, defi- 
nir matrices de dimensiones tales como 3x2x5x3. 

Los vectores son, pues, muy adecuados para manejar grandes cantidades 
de datos. Para nosotros esto es potencialmente útil, ya que crearemos pro- 
gramas que se apoyan en el uso de una base de datos. Pero los vectores son 
sólo la mitad de la historia. Para que nos sean útiles necesitamos mantener 
los datos de forma permanente y el programa anterior solicita la introduc- 
ción de los datos cada vez que lo ejecutamos. ¿Cómo podríamos almacenar 
datos dentro del programa? Una posibilidad sería la siguiente: 
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nombrel$="“JEREMY” 
nombre2$-“PEDRO” 
nombre3$=“CATALINA” 


pero esto no nos permitiría utilizar vectores. Una forma mejor de almace- 
nar información es el uso de los comandos DATA y READ. 


DATOS INDELEBLES: READ y DATA 


Las instrucciones READ y DATA permiten guardar datos de forma per- 
manente dentro de un programa para que luego puedan ser asignados a un 
vector. Veamos un ejemplo muy sencillo. El programa 5.3 almacena nom- 
bres de futbolistas y los escribe en la pantalla cuando tecleamos el número: 


Programa 5.3 


10 DIM a$(11) 

20 FGñ4 x=1 TO 11 

30 READ a$(x) 

40 NEXT 

50 CLS 

60 INPUT"Introduzca el numero del jugador ",num 
70 PRINT"El jugador numero";num;"es ";a$(num) 
80 a$=INKEY$:IF a$="" THEN 80 


90 GOTO 50 

100 END 

110 DATA ARCONADA ,GERARDO , CAMACHO , MACEDA ,GOICOEC 
HEA 


120 DATA GORDILLO,SENOR ,LOZANO , SANTILLANA 
130 DATA LANDABURU,LOPEZ UFARTE 


La línea 10 dimensiona el vector. En la línea 30 nos encontramos una ins- 
trucción nueva, READ. La instrucción READ está contenida en un bucle 
FOR-NEXT; la primera vez que se recorre el bucle, la línea 30 intenta 

. READ (leer) información para asignarla a la variable a$(1); el dato que en- 
cuentra es el primero de la línea 110. Toda la información está contenida 
en líneas que empiezan por DATA; los datos se separan mediante comas 
para que el ordenador sepa dónde termina un dato y empieza otro. Así pues, 
la instrucción READ toma el primer dato que hay en la línea; la próxima 
vez que se recorre el bucle lee el segundo bucle, y así sucesivamente. La fi- 
gura 5.3 muestra dónde se van almacenando los datos a medida que son leí- 
dos (READ) por el ordenador. 
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READ AS (1) A$ (2) A$ (3) 


DATA ARCONADA, GERARDO, CAMACHO, MACEDA... 


Figura 5.3 READ y DATA. 


Notará que he utilizado tres líneas de instrucciones DATA. Usted puede re- 
partir los datos en el número de líneas que quiera, siempre que ponga una 
instrucción DATA al comienzo de cada una de ellas. También es conven- 
cional la colocación de los datos al final del programa. Tenga en cuenta que 
si usa la instrucción READ en diferentes ocasiones a lo largo del programa, 
debe ordenar sus datos de tal forma que sean leídos por el ordenador en el 
orden deseado. Una cosa más, si recibe un mensaje de error DATA EX- 
HAUSTED (datos agotados), será porque, o bien ha introducido menos da- 
tos que los que deben ser leídos, o bien pretende leer demasiados, es decir, 
el bucle es demasiado largo. 

Ahora que entendemos las instrucciones READ y DATA, utilicémoslas 
para algo un poco más interesante. El objetivo final de este libro es cons- 
truir programas interactivos, podemos comenzar a poner en práctica algo 
de lo que hemos aprendido. El programa 5.4 simula una conversación con 
un ordenador un tanto brusco que no está de acuerdo con usted. 


Programa 5.4 


10 MODE 2 

20 DIM respuesta$(4),n$(4) 

30 FOR x=0 TO 1 

O READ respuesta$(x) 

50 READ n$(x) 

60 NEXT 

70 FOR x=0 TO 1 

30 PRINT"VENGA!" 

90 LINE INPUT a$ 

100 PRINT respuesta$(x);a$;n$(x) 

110 NEXT 

120 END 

130 DATA "DICES QUE ",", PERO NO PUEDES DEMOSTRA 
RLO" 

140 DATA "QUE TONTERIA!. COMO PUEDES DECIR QUE " 
," Y QUEDARTE TAN PANCHO?" 
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Ejecute el programa y, en respuesta a la cortés invitación BIEN!, teclee lo 
siguiente: 


LOR ORDENADORES AMSTRAD SON ESTUPENDOS 
y conteste a la segunda pregunta con 
SON MEJORES QUE LOS SINCLAIR 


Esto no es exactamente inteligencia artificial, pero nos inicia en el buen ca- 
mino. La línea 100 escribe la primera parte de la respuesta, inserta la frase 
que usted ha introducido y finalmente añade una réplica para terminar la 

frase. Habrá notado que las instrucciones DATA son ligeramente diferentes 
en el programa 5.4; aquí las cadenas están entre comillas. Esto es debido a 
que, sin ellas, los espacios iniciales y finales son ignorados y es necesario 
dejar espacios a ambos lados de la respuesta introducida. Poniendo la frase 
entre comillas, todo lo que está entre ellas es utilizado, incluyendo los 
espacios. 

Practique con este programa aumentando las instrucciones DATA y vea 
hasta dónde puede alargar la conversación. Por supuesto, debe limitar mu- 
cho sus respuestas, pero puede ser divertido. Más tarde, en los capítulos 8 
y 9 le mostraré un interlocutor mucho más interesante. 


RESTAURACIONES: RESTORE 


Con frecuencia es útil poder controlar un «puntero» que señale al lugar del 
que queremos que se lean los datos. Algunas veces querremos modificar este 
puntero para leer de nuevo los datos desde el principio o desde algún otro 
punto concreto de las instrucciones DATA. Esto se puede conseguir con la 
instrucción RESTORE. Por ejemplo, se puede escribir un programa en el 
que la respuesta del usuario determine el lugar desde el cual han de leerse 
los datos. 

Utilicemos el ejemplo de una tienda de comestibles. Un parroquiano quie- 
re saber el precio de una determinada fruta o verdura. En función de la elec- 
ción del cliente, el puntero de datos se coloca bien al principio de los datos 
sobre frutas o al principio de los datos sobre verduras. Teclee el programa 
5.5: 


Programa 5.5 


10 DIM articulo$(7,1) 

20 CLS 

30 PRINT"De que quiere saber precios ","(F)ruta 
o (Verduras ?" 
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40 INPUT eleccion$ 

50 IF eleccion$="F" OR eleccion$="f" THEN RESTOR 
E 130 ELSE RESTORE 150 

60 FOR x=1 TO 7 

70 FOR precio=0 TO 1 

30 READ articulo$(x,precio) 

90 NEXT: NEXT 

100 FOR y=1 TO 7 

110 PRINT articulo$(y,0);" a ";¡articulo$(y,1);" 

pesetas" 

120 NEXT 

130 DATA MELOCOTONES,150,MANZANAS,100,NARANJAS, 1 
20,UVAS,55 

140 DATA CEREZAS ,60,MNADARINAS,80,FRESAS,250 

150 DATA PATATAS,45 TOMATES ,70,GUISANTES 25 ,SANA 
HORIAS,77 

160 DATA CEBOLLAS,40,REPOLLO,65 ,LECHUGAS ,50 


En la línea 50 es donde se decide qué datos se van a utilizar. Si el cliente 
se ha interesado por la fruta, el puntero de datos se coloca apuntando a la 
línea 130; y en caso contrario, a la 150, que es donde se encuentran los da- 
tos sobre verduras. Por tanto, RESTORE dice al ordenador a partir de qué 
lugar debe leer los datos. 

Finalmente, voy a mostrar una instrucción más. Se trata de RND, que 
nos permite elegir un suceso aleatoriamente. ¡Al mismo tiempo voy a des- 
velar un secreto: voy a enseñarle cómo escriben los escritores sus libros en 
la época actual! ¿Cómo? ¡Haciendo que se los escriba el ordenador! 


UN ESCRITOR: RND 


Todo lo dicho sobre los datos indica el camino obvio para escribir textos. 
Hacer que el ordenador genere aleatoriamente texto para usted. Esto es muy 
fácil; la mayor dificultad radica en la elección de las frases a utilizar. El si- 
guiente programa usa cuatro variables vectoriales. He reservado espacio 
para cuatro elementos en la instrucción DIM, pero sólo he utilizado la mi- 
tad con mis datos. Vea si puede añadir frases, o si prefiere (¡lo que segura- 
mente ocurrirá!) cambiarlas. En esta situación es de gran ayuda el perfecto 
dominio de un lenguaje «humano». 

El programa 5.6 lee las frases, las asigna a los vectores y a continuación 
genera una frase escogiendo en cada caso una de las dos posibles opciones 
para cada una de las cuatro partes de la frase. He utilizado la función RND 
para escoger aleatoriamente uno u otro de los números 0 y 1. Si añaden 
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más datos, el número aleatorio tendrá que poder ser mayor. La función 
RND es muy simple, como demuestran las líneas 130 a 160. Si desea elegir 
un número aleatorio comprendido entre 1 y 125, necesitará una instrucción 
como ésta: 


variable = INT(RND*125) 


El número entre paréntesis es el más grande que se puede obtener. Si nece- 
sita un número entero, use INT. Esta instrucción redondea el número al en- 
tero más próximo. Escriba el programa 5.6 y observe. 


Programa 5.6 


10 CLS 

20 DIM frase1$(4), frase2$(4), frase3$(4) ,fraseu$( 
4) 

30 GOSUB 60 

40 GOSUB 100 

50 END 

60 FOR x=0 TO 1 , 

70 READ frasel$(x),frase2$(x),frase3$(x),frase4$ 
(x) 

80 NEXT 

90 RETURN 

100 GOSUB 130 

110 PRINT frasel$(x1);" ";frase2$(x2);" ";frase3 
$(3);" ";frasei$(x4) 

120 RETURN 

130 x1=RND(1) 

140 x2=RND(1) 

150 x3=RND(1) 

160 x4=RND(1) 

170 RETURN 

180 DATA En este mundo moderno, la humanidad se 
ha puesto al borde de la autodestruccion 

190 DATA y vamos a llegar a 

200 DATA limites insospechados 

210 DATA Desde la llegada de los ordenadores 

220 DATA la vida se ha vuelto insoportable 

230 DATA y las normas de conducta estan en,un ab 
ismo sin fin 
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Este programa es una sencilla muestra de lo que se puede conseguir reagru- 
pando frases de forma aleatoria. Por ejemplo, cuando ejecute el programa 
puede obtener frases como las siguientes: 


En este mundo moderno la vida se ha vuelto insoportable y 
vamos a llegar a un abismo sin fin. 


Desde la llegada de los ordenadores la humanidad se ha pues- 
to al borde de la autodestrucción y las normas de conducta 
están en límites insospechados. 


Bueno, no nos pongamos tan tristes. Es interesante preparar partes diversas 
de una frase y reunirlas en algo que suene gramaticalmente correcto, aun- 
que sea una tontería. Pensando cuidadosamente, usted puede ser capaz de 
hacer que su Amstrad le redacte informes, ensayos y proyectos. Bueno, es 
posible. 

Con esto concluye por el momento nuestro estudio de los vectores y los 
datos, aunque volveremos a hablar de ellos más tarde, cuando los usemos 
para cosas más grandes y mejores. Las instrucciones DIM, READ y DATA 
constituyen el núcleo de los programas que simulan tener alguna inteligen- 
cia. En todo caso, nos serán muy útiles para almacenar grandes cantidades 
de información. 
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¡Siempre lo inesperado! 


Cuando se escriben programas para uno mismo, muchas veces es más sen- 
cillo tomar atajos. No hay inconveniente si usted va a ser el único usuario 
de los programas; pero muchas veces su software (sus programas) será uti- 
lizado por otras personas, y ahí es donde surge el problema. Á menos que 
usted sea capaz de leer la mente o tenga algún otro poder extrasensorial, la 
gente que utilice su programa no vacilará en hacer lo imposible para con- 
fundir a su obra maestra. Pueden ignorar sus instrucciones y teclear algo 
fuera del margen de datos que permite el programa, o pulsar accidental- 
mente alguna tecla equivocada. Desde luego, no es fácil que prevea todas 
las posibilidades, pero en la medida de lo posible intente minimizar las con- 
secuencias del error humano. A eso está dedicado este capítulo: a detectar 
lo inesperado. 

Hasta ahora, en los programas que hemos escrito, no hemos pensado en 
detectar los errores que puede cometer el usuario. ¿Qué tipo de cosas pue- 
den ocurrir? ¿Que se pulse la tecla ESC accidentalmente? ¿Que se introduz- 
ca información equivocada? Estos son riesgos muy corrientes en los progra- 
mas. Es esencial tratar de cubrir en lo posible estos resquicios en su pro- 
gramación. Comencemos con una frase muy utilizada en el lenguaje comer- 
cial de ordenadores: facilidad de uso. 


FACILIDAD DE USO: PRESENTACIÓN EN PANTALLA, DETEC- 
CIÓN DE ERRORES Y ENTRADAS RIGUROSAS 


¿Cuántas veces ha oído la frase anterior? ¿Cuántos programas de los que 
ha comprado le han dejado confundido a la primera ocasión? Quizás los pro-: 
gramas son fáciles de usar, pero para quien los escribió. El primer sitio en 
que un programa puede causar confusión es en sus instrucciones. Si es ne- 
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cesario, proporcione instrucciones concisas y claras al principio del progra- 
ma. Si quiere que un usuario interactúe con el ordenador, no puede esperar 
que adivine lo que debe hacer. Póngale las cosas fáciles al usuario. 

Además, los mensajes que emita a lo largo del programa también son im- 
portantes. Reconozco que en el capítulo anterior yo no he seguido mis pro- 
pios consejos. En varias ocasiones a lo largo del libro, mientras nos con- 
centramos en un determinado aspecto, y para no cansar más sus agotados 
dedos, he tomado el camino más corto. La consecuencia es frecuentemente 
que cuando se pone en marcha un programa lo único que ve es un signo 
de interrogación. Si esto le ha resultado frustrante, entenderá fácilmente lo 
que estoy tratando de explicar. Tome como ejemplo el programa 6.1. 

Voy a escribir un pequeño programa que representa el proceso que usted 
debe seguir para sacar dinero de un cajero automático situado en el exterior 
de su banco. En el programa usted debe introducir un número de cuenta 
de seis dígitos y su contraseña de cuatro letras. Después tecleará la cantidad 
que solicita. Que lo reciba o no depende de la cantidad que tenga en su cuen- 
ta; no puede sacar más de veinte mil pesetas en cada operación. Escribamos 
el programa. 


Programa 6.1 


10 CLS 

20 PRINT"INTRDUCCION DE DATOS" 

30 INPUT num 

YO IF num=123456 THEN GOSUB 50 ELSE 30 

50 INPUT contra$ 

60 IF contra$="USUARIO" THEN GOSUB 80 ELSE 50 

70 RETURN 

80 INPUT"Teclee cantidad de dinero: ", dinero 

90 GOSUB 110 

100 RETURN 

110 credito=17000 

120 IF dinero<20000 AND dinero<credito THEN GOSU 
B 150 ELSE 130 

130 PRINT"Lo siento. No es posible el pago.":END 
140 RETURN 

150 PRINT"Dinero entregado: ";dinero 

160 RETURN 


Al comenzar la ejecución del programa usted se encuentra ante un signo de 
interrogación que le solicita la introducción de ciertos datos. ¿Qué debe te- 
clear? ¿Un número? ¿Su contraseña? ¿La cantidad de dinero que quiere? Si 
consulta el listado sabrá que el primer dato solicitado es el número de cuen- 
ta, y a continuación la contraseña. 
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Mejoremos los mensajes cambiando las líneas 20 y 50: 


20 PRINT"Teclee el numero de su Cuenta" 
50 INPUT"Introduzca su contrasela personal" 


Así está mejor. Pero podemos hacer algo más para ayudar al usuario. ¿Qué 
ocurre si éste comete un error? Tendrá que volver a teclear su entrada, pero 
tal vez no sepa qué equivocación ha cometido, así que deberíamos decirle 
dónde ha errado para que la próxima vez todo vaya felizmente. Los cam- 
bios son los siguientes: 


40 IF num=123456 THEN GOSUB 50 ELSE GOSUB 170 
60 IF contra$="USUARIO" THEN GOSUB 80 ELSE GOSUB 
230 


y agregue las líneas 170 a 270: 


170 PRINT"El numero de cuenta no es correcto" 
180 PRINT"Recuerde que debe teclear" 

190 PRINT"seis digitos" 

200 FOR x=0 TO 2000:NEXT 

210 GOTO 10 

220 RETURN 

230 PRINT"La contrasela no es correcta" 
240 PRINT"Por favor, intentelo otra vez" 
250 FOR x=0 TO 2000:NEXT 

260 GOTO 50 

270 RETURN 


Ahora tenemos preparados mensajes adicionales por si el usuario comete 
un error. Observe que he usado una instrucción FOR-NEXT para realizar 
una breve pausa antes de volver a solicitar la entrada. En algunas circuns- 
tancias puede ser preferible obligar al usuario a pulsar una tecla para volver 
al principio. También se puede asear un poco la pantalla borrándola cada 
vez que se efectúa una entrada, de forma que si el usuario comete unos cuan- 
tos errores, no queda en ella una lista de mensajes de error. Una vez que se 
sienta satisfecho en este aspecto pase al siguiente problema. 

El problema radica en que, cuando el pago es aprobado, el programa tam- 
bién escribe el mensaje de que no se puede hacer el pago. Esto se puede re- 
solver haciendo que el programa termine cuando se efectúa el pago, pero 
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la verdad es que el programa está mal estructurado. Examine el programa 
6.2, que ha sido estructurado con subrutinas. La presentación en pantalla 
es mucho mejor cuando se comete alguna equivocación: 


Programa 6.2 


10 CLS 

20 GOSUB 70 

30 GOSUB 120 

40 GOSUB 170 

50 GOSUB 250 

60 END 

70 CLS 

80 PRINT"Teclee el numero de su cuenta" 

90 INPUT num 

100 IF num=123456 THEN 110 ELSE 310 

110 RETURN 

120 CLS 

130 PRINT"Introduzca su contrasela personal" 

140 INPUT contra$ 

150 IF contra$="USUARIO" OR contra$="usuario" TH 

EN 160 ELSE GOSUB 370 

160 RETURN 

170 CLS 

180 PRINT"Teclee cantidad de dinero: " 

190 INPUT dinero 

200 PRINT"Ha solicitado";dinero;"pesetas. Es cor 
recto?" 

210 INPUT resp$ 

220 IF resp$="S" OR resp$="s" THEN GOSUB 250 ELS 

E 230 

230 IF resp$="N" OR resp$="n" THEN GOTO 170 ELSE 
200 

240 RETURN 

250 credito=17000 

260 IF dinero<20000 AND dinero<credito THEN PRIN 

T"De acuerdo. Recoja las";dinero;"pesetas.":END 

270 IF dinero>20000 THEN PRINT"Supera el limite 

autorizado": END 

280 IF dinero>»credito THEN PRINT"No tiene fondos 
suficientes": END 

290 RETURN 

310 PRINT"El numero de cuenta no es correcto" 

320 PRINT"Recuerde que debe teclear" 


41 


330 PRINT"seis digitos" 

340 FOR x=0 TO 2000:NEXT 

350 GOSUB 70 

360 RETURN 

370 PRINT"La contrasela no es correcta" 
380 PRINT"Por favor, intentelo otra vez" 
390 FOR x=0 TO 2000:NEXT 

400 GOSUB 120 

410 RETURN 


Observe que el programa analiza con rigor las respuestas para que sean co- 
rrectas. El nivel de rigor que incorpore a sus programas es cosa suya y pue- 
de depender de la naturaleza del programa. Si recuerda, al final del capítulo 
3 he dicho que el programa ASCII (programa 3.10) contiene algunas im- 
perfecciones. ¿Las descubrió ya? 

El problema está en la subrutina que transforma un valor ASCII en un 
carácter, pues no hay un detector que elimine valores incorrectos. Por ejem- 
plo, pulsando el valor 7 el código se convierte en un pitido. Lo que necesi- 
tamos es una comprobación del número que se introduce. Es muy sencillo. 
Añadiendo las siguientes líneas, el programa aceptará únicamente los valo- 
res permisibles. (En este caso he limitado los valores a los comprendidos en- 
tre 32 y 126, que abarcan el conjunto completo de caracteres, aunque no 
los definibles por el usuario.) Cargue el programa 3.10 y añádale las siguien- 
tes líneas: : 


Programa 6.3 


255 IF codigo<32 OR codigo>126 THEN GOSUB 300 
300 PRINT"El codigo introducido esta fuera" 
310 PRINT"del margen correcto." 

320 a$=INKEY$:IF INKEY$=" " THEN 330 ELSE 320 
330 GOSUB 50 

340 RETURN 


Cuando ejecute el nuevo programa verá que éste impide la introducción de 
números ajenos al margen correcto. Hay que añadir una cosa más al pro- 
grama para protegerlo contra dedos despistados. Podemos hacer que si se 
pulsa accidentalmente la tecla ESC, el programa se reinicie a partir de un 
cierto punto. Para ello necesitamos dos instrucciones. Una ya la hemos en- 
contrado anteriormente: ON. La otra es BREAK, que permite asignar una 
función al hecho de pulsar la tecla ESC. 
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GESTION DE ERRORES: ON BREAK, ON ERROR, ERR, ERL, KEY 
Y KEY DEF 


Además de en la toma de decisiones, como en el programa menú, la ins- 
trucción ON sirve también para detectar cuándo se está pulsando la tecla 
ESC durante la ejecución del programa. Si se pulsa la tecla ESC, lo normal 
es que el programa se detenga. Pero mediante la instrucción ON BREAK 
podemos decir al ordenador qué acción debe emprender en tal caso. Por 
ejemplo, si ejecuta el programa 3.10 (en su versión completa), el programa 
se detiene al pulsar ESC. Para impedirlo añada esta línea: 


5 ON BREAK GOSUB 50 


Lo que acaba de decirle al ordenador es que, si se pulsa la tecla ESC, el 
programa debe volver a empezar, lo que significa que volverá al menú prin- 
cipal. Por supuesto, también se podría especificar que la acción fuera cual- 
quier otra; todo depende de lo que se ponga a continuación de ON BREAK. 

Tome buena nota, sin embargo, de que si incluye este detector de error, 
debe hacerlo cuando haya terminado ya el programa, pues de otra forma 
no será capaz de detenerlo y lo perderá, pues tendrá que apagar la máqui- 
na. La única forma de evitar esta situación es tener una instrucción ON 
BREAK STOP dentro del programa por si se pulsa dos veces la tecla ESC. 
El otro tipo de instrucción ON es ON ERROR. Cuando se detecta un error 
en el programa, éste es enviado a una determinada línea dentro; por ejem- 
plo, ON ERROR GOTO 60. 

Recuerde que esta instrucción debe ser la última que incorpore al pro- 
grama o le será difícil depurarlo. Es muy fácil olvidar que se ha puesto una 
instrucción ON ERROR en un programa y gastar tiempo ejecutándolo una 
y Otra vez y sufriendo los mismos fallos sin ver qué es lo que ocurre. 

Otras instrucciones muy útiles son las que nos permiten redefinir la fun- 
ción de una tecla. Hay dos instrucciones de este tipo. KEY redefine una nue- 
va función para una tecla dando al usuario la oportunidad de conseguir ac- 
ciones complejas por la simple pulsación de la misma. Así, una definición 
podría ser: 


KEY 140, “NEW” + CHR3(13) 


Esto indica a la máquina que cuando se pulsen simultáneamente las teclas 
CONTROL y ENTER, debe actuar como si se hubiera tecleado NEW y se 
hubiera pulsado ENTER. (Consulte la información que se da a este respec- 
to en el manual del usuario.) También podemos cambiar cualquier tecla del 
teclado para que genere otro carácter. Por ejemplo, podemos hacer que al 
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pulsar la tecla Q aparezca una A en la pantalla. La instrucción es KEY 
DEF, se usa de la siguiente forma: 


KEY DEF 67, 1, 65 


El primer número es el de la tecla que se va a redefinir (vea el manual); el 
segundo indica si la tecla ha de ser repetitiva. El l activa la repetición; el 0 
la desactiva. El tercer número es el código ASCII del carácter. Así, en nues- 
tro ejemplo ponemos el 65 para especificar la letra A. Añadiendo dos pa- 
rámetros más, podremos utilizar también las teclas SHIFT y CONTROL 
en conjunción con cualquier otra. 

De esta forma se pueden asignar funciones a las distintas teclas y hacer 
más fácil al usuario la introducción de respuestas. Por ejemplo, podría asig- 
nar a algunas teclas las funciones de contestar SI o NO, NORTE, SUR, etc. 
Esto hace el programa más atractivo y desde luego más fácil de usar. 

Finalmente, podemos decir al usuario qué error se ha cometido utilizan- 
do las instrucciones ERR y ERL. ERR es una variable cuyo valor es el nú- 
mero del error. (Los números de error están relacionados en el manual del 
usuario.) ERL da el número de la línea donde se ha producido el error. Am- 
bas variables son muy útiles para el tratamiento de los errores. 

La detección de errores es importante en todos los programas y hace la 
vida mucho más fácil para el usuario. A fin de cuentas, es responsabilidad 
del programador garantizar que el tratamiento de los errores sea bueno; y 
el que sea más o menos bueno depende de su habilidad y del cuidado que 
ponga al hacer el programa. Suponga siempre que la persona que va a uti- 
lizar el programa sabe muy poco, quizá nada. 

En el siguiente capítulo veremos alguna aplicación adicional de la detec- 
ción de errores. Como he mencionado antes, en algunos de los programas 
de este libro he omitido voluntariamente las trampas para errores. El lector 
puede dedicar unos minutos a tratar de mejorarlos. Utilice diagramas de flu- 
jo para planificar las acciones de su programa y para determinar qué curso 
debería tomar cuando se produce un error. Esto puede resultar algo labo- 
rioso, pero se verá recompensado con una ejecución sin problemas. 
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Manejo de textos 


En los capitulos precedentes hemos visto cómo utilizar las diversas instrue- 
ciones del BASIC del Amstrad para controlar la entrada de información en 
el ordenador. En este capítulo vamos a ir un poco más lejos y a aprender 
técnicas para hacer sus programas más atractivos mediante la inserción de 
rutinas que escriban textos en pantalla de distintas maneras. Se trata de ofre- 
cer alternativas al simple hecho de escribir en la pantalla los mensajes amon- 
tonados. Los gustos personales juegan un importante papel en la forma de 
presentar una pantalla llena de información, pero lo cierto es que un pro- 
grama puede causar mejor o peor impresión según lo cuidados que estén 
estos detalles. 

Permítame ponerle un ejemplo. Al programa 7.1 le llamo mi alarma con- 
tra intrusos. El programa deja un mensaje escrito en la pantalla, advirtien- 
do a cualquiera que se acerque para que no toque el teclado. Pero, siendo 
los humanos curiosos por naturaleza, es casi seguro que alguno tocará una 
tecla. Y entonces es cuando podemos divertirnos un poco y poner en prác- 
tica alguna de las ideas que hemos aprendido. No le digo más por el mo- 
mento; lo mejor es que escriba el programa. Conserve los mismos números 
de línea que aparecen aquí, porque añadiremos algunas cosas más adelante: 


Programa 7.1 


10 ZONE 40 

20 MODE O 

30 PAPER 5:BORDER 2:PEN 10:CLS:PRINT,,, 
YO PRINT SPC(6);"NO TOQUE" 

50 PRINT,,,:PRINT SPC(5);"EL TECLADO" 
60 a$=INKEY$:IF a$<>"" THEN 70 ELSE 60 
70 CLS 

80 MODE 1:PAPER 4:BORDER 7:PEN 10:CLS 
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90 unafrase$="YA TE LO ADVERTI. LA HAS HECHO BUE 
NA!! 11" 

100 PRINT unafrase$ 

110 ENV 1,4,3,1,1,0,19,7,-120,4 

120 SOUND 1,100,7,14,1 

130 a$=INKEY$:IF a$<>"" THEN 140 ELSE 120 

140 MODE O 

150 INK 0,4,7:CLS:PRINT,,,, 

160 PRINT "DEMASIADO TARDE!!! !" 

170 WHILE x=0 

180 ENV 1,4,3,1,1,0,19,7,-120,4 
190 SOUND 1,100,7,14,1 

200 WEND 


Ahora ejecute el programa y pulse una tecla cualquiera. Verá aparecer un 
mensaje de error y además sonará la alarma. Puede detener el programa pul- 
sando ESC. Para completar el tratamiento del error, puede incluir la ins- 
trucción ON BREAK, pero recuerde grabar antes el programa, pues no po- 
drá interrumpirlo después de añadir dicha instrucción. Si usted presiona 
otra tecla, en el monitor aparecerá otro mensaje informándole de que llega 
demasiado tarde. Observe cómo he interceptado los errores para dirigir el 
programa a diferentes líneas. Usted puede mejorarlo utilizando los métodos 
de gestión de errores estudiados en el capítulo anterior. La línea 30 fija los 
colores de papel, margen y pluma; usted puede cambiarlos en función del 
monitor que tenga y de los efectos que más le gusten. La línea 60 espera 
hasta que se toque el teclado; cuando esto sucede, el programa nos presenta 
la siguiente página. El lazo WHILE que hay al final del programa genera 
un sonido de duración indefinida, puesto que x siempre vale cero. 

La línea 110 es la clave de la alarma, pues define las características del 
ruido por medio de la instrucción ENV; la línea 120 produce el sonido. Las 
demás instrucciones del programa deberían serle familiares. Usted puede dis- 
frutar modificando el programa para ejecutarlo en diversos modos de pan- 
talla y crear diferentes efectos en el monitor. La figura 7.1 nos muestra un 
diagrama de flujo de este programa. 

El programa realiza su tarea bastante bien, pero no hay suspense en la 
presentación del mensaje. ¿Suspense? ¡Sí, emoción! Podemos darle vida al 
programa haciendo que las dos frases aparezcan lentamente en la pantalla, 
lo que las hará más interesantes. Para ello tenemos que aprender a escribir 
textos en la pantalla como si se tratase de un teletipo lento. 


Comienzo 


Escribir «NO 
TOQUE EL 
TECLADO» 


¿Se ha. 
tocado el 
teclado? 


Escribir el 
mensaje de 


ALERTA 


Suena la 
ALARMA 


Escribir 
«DEMASIADO 
TARDE» 


¿Una tecla 
o ESC? 


Figura 7.1 Alarma contra intrusos. 
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TELETIPO: UNA RUTINA QUE SIMULA A UN TELETIPO LENTO 


Ya hemos utilizado instrucciones tales como MIDS para escribir, de forma 
selectiva, caracteres de una cadena. Podemos aplicar estas ideas a la elabo- 
ración de un pequeño programa que escriba una frase lentamente, letra a 
letra. Para empezar, teclee el programa 7.2: 


Programa 7.2 


5 ZONE 40 

10 CLS 

20 unafrase$="YA TE LO ADVERTI. LA HAS HECHO BUE 
NA!111" 

30 PRINT,:FOR x%=1 TO LEN(unafrase$):PRINT MID$( 
unafrase$,x%,1); 

4O GOSUB 50:NEXT:PRINT:END 

50 FOR a%=150 TO O STEP -1:NEXT: RETURN 


Ejecute el programa y verá que el contenido de unafrase$ se escribe lenta- 
mente en la pantalla. La idea es muy sencilla. En primer lugar, la línea 30 
establece un bucle que escribe una letra de la frase cada vez que se ejecuta. 
Pero esto no basta, porque la máquina trabaja demasiado deprisa como 
para que el efecto sea observable. Tenemos que insertar también un bucle 
que ocasione un retardo para que la aparición en la pantalla sea más lenta. 
El GOSUB 50 de la línea 40 llama a la subrutina retardadora antes de que 
se escriba la letra siguiente. La subrutina es simplemente un bucle FOR- 
NEXT que se ejecuta sin hacer nada. 

Podríamos incorporar este mecanismo al programa 7.1 para conseguir un 
efecto mucho más teatral. Haga los siguientes cambios en el programa: 

Cambie la línea 100: 


100 PRINT,: FOR x% = 1 TO LEN(unafrase$): PRINT MIDS 
(unafrase$,x9%, 1); 


y añada las líneas siguientes: 


105 GOSUB 107: NEXT: PRINT 
107 FOR a% = 150 TO 0 STEP -1: NEXT: RETURN 


Ejecute este programa. Creo que estará de acuerdo en que hemos consegui- 
do un efecto más dramático haciendo más lenta la aparición del texto. Es 
una cuestión de gusto personal el que usted use o no este tipo de presenta- 
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ción en sus programas, pero la rutina de teletipo lento da la impresión de 
que la máquina le está respondiendo. 

Trate de adaptar alguno de los programas de este libro usando esta idea 
del teletipo. El método que usted emplee para presentar el texto puede real- 
zar o arruinar un programa; siempre es interesante experimentar con dife- 
rentes efectos. Las instrucciones de manejo de cadenas que vimos en el ca- 
pítulo 3 son particularmente útiles para conseguir nuevos efectos. Además, 
lo que importa es que haga llegar su mensaje al usuario de forma efectiva. 
Después de todo, en esto consiste la interacción. 
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Sigmund: un programa interactivo 


Hemos visto la forma de usar una amplia gama de instrucciones para ma- 
nipular un texto introducido por el teclado, pero aún no hemos escrito un 
programa que parezca inteligente. Bien, ha llegado el momento de escribir 
un gran programa que interactúe plenamente con el usuario. En los dos ca- 
pítulos siguientes escribiremos Sigmund, que es un psiquiatra electrónico 
(¡premio para quien adivine en quién estaba pensando cuando puse nombre 
al programa!). En este capítulo estudiaremos la planificación de este pro- 
grama y las técnicas empleadas. El programa está en el capítulo 9, pero no 
lo teclee todavía. Lea antes este capítulo entero para comprender los prin- 
cipios en que se basa el programa, para que cuando finalmente lo escriba 
entienda mucho mejor lo que hace. 

Lo primero que haré es darle algunos antecedentes del programa. La idea 
original de Sigmund está basada en uno de los primeros programas de in- 
teligencia artificial: Eliza. Ha habido muchos programas de este estilo y hoy 
día continúan las investigaciones para que los ordenadores sean «inteligen- 
tes». Programas como Eliza estaban escritos para grandes ordenadores con 
el fin de simular una conversación entre paciente y médico. Eliza engañó a 
muchas personas que lo utilizaron y quedaron convencidas de que el orde- 
nador comprendía realmente sus problemas. Como verá en el programa Sig- 
mund, esto no es más que un farol, pero extremadamente efectivo. 

¿Cuál es el objetivo del programa? Sigmund está pensado para simular 
una conversación con un psicoanalista, pero no un psicoanalista cualquiera. 
La idea subyacente al programa es conseguir que el usuario piense que real- 
mente está conversando con alguien, y que su conversación está siendo 
escuchada y seguida de forma inteligente. Se trata de un proyecto muy 
ambicioso, pero hemos aprendido muchas cosas que podemos reunir en un 
programa de esta naturaleza. ¿Por dónde se empieza un proyecto como 
éste? 
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Usted ya ha visto que permitir al usuario introducir cualquier cosa que 
se le ocurra puede causar problemas. No podemos introducir en el ordena- 
dor el diccionario de la Real Academia entero, ni un conjunto completo de 
reglas gramaticales (¡suponiendo que las entendiéramos!) que nos permitan 
cubrir todas las intrincadas sutilezas del idioma. Lo que queremos conse- 
guir es una forma de simular contestaciones aceptables para el usuario sin 
recurrir a escribir todas las posibles respuestas, lo que constituye una tarea 
imposible, a menos que usted haya dado con la solución. Lo que podemos 
hacer es dar por supuestos ciertos hechos sobre la forma en que los huma- 
nos se comportan y piensan. 

Como seres humanos, tenemos una enorme imaginación. Éste es el ori- 
gen de nuestra inventiva. La habilidad de imaginar posibles sucesos y ex- 
traer ideas puede llevarnos a captar en una determinada situación cosas que 
no son totalmente evidentes. Todos lo hemos hecho alguna vez, y es preci- 
samente en esto en lo que Sigmund confía para engañar al usuario. Lo que 
supone es que un usuario humano entenderá en sus respuestas más de lo 
que literalmente se dice. No es una idea tan ingenua como puede sonar en 
principio. 

Piense en una conversación con un amigo. Durante parte de ella usted 
estará escuchando y hará comentarios ocasionales para demostrar que está 
atento y ha entendido lo que se le ha dicho. Cuando usted va a un analista, 
como cliente que es, hablará mucho y el analista le animará a hablar me- 
diante comentarios incidentales. Lo que podríamos hacer, pues, es tener una 
serie de frases que el ordenador pueda soltar aleatoriamente sin tener en 
cuenta lo que usted diga. Pero este truco no nos serviría durante mucho 
rato. Por ejemplo, imagine que tenemos una reserva de cuatro frases para 
replicar al usuario. Estas frases podrían ser las siguientes: 


CUENTAME MAS COSAS 
HUMM. MUY INTERESANTE 
CONTINUA 

ENTIENDO 


Con estas cuatro contestaciones y la función RND, podríamos dejar que el 
usuario teclee lo que desee y darle una respuesta elegida aleatoriamente, y 
luego repetir todo el proceso. La figura 8.1 muestra un posible diagrama 
de flujo para un programa que realice esa función. 
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Entrada 


del humano 
Escribir una de 
las cuatro 
frases de reserva 


Figura 8.1 La función RND. 


Pero esto no es nada convincente. Imagine la conversación que resultaría: 


HUMANO: 
ORDENADOR: 
HUMANO: 
ORDENADOR: 
HUMANO: 
ORDENADOR: 
HUMAMO: 
ORDENADOR: 


TENGO SUEÑOS TERRRIBLES 
CUENTAME MAS COSAS 

SUEÑO CON GAVIOTAS 

HUMM. MUY INTERESANTE 

Y ESTOY MUY DEPRIMIDO POR ESO 
ENTIENDO 

¿CREES QUE ESO ES ANORMAL? 
CONTINUA 


El ordenador no sería capaz de mantener una conversación durante mucho 
tiempo usando únicamente frases en conserva. De hecho, el programa fra- 
casa en cuanto se le hace una pregunta al ordenador. Si tecleamos las frases 
anteriores en el programa Sigmund, las contestaciones serán muy diferen- 


tes. Observe el diálogo: 


HUMANO: 
ORDENADOR: 
HUMANO: 
ORDENADOR: 


TENGO SUEÑOS TERRIBLES 
¿APARECEN OTRAS PERSONAS EN ELLOS? 
NO, SUEÑO CON GAVIOTAS 
¿CON QUE FRECUENCIA SUEÑAS CON GA- 


VIOTAS? 


HUMANO: 
ORDENADOR: 


A MENUDO ¿CUAL SERA LA CAUSA? 
LA CAUSA SIEMPRE ES DIFICIL DE ENCON- 


TRAR 
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Parece como si las frases introducidas hubieran sido completamente com- 
prendidas; las respuestas parecen inteligentes. Pero, por supuesto, sabemos 
que el secreto tiene que estar en algún lugar del programa. Lo que he hecho 
es ir un poco más allá de la idea de las frases en conserva. El ordenador 
está utilizando todavía respuestas preparadas, pero con una mayor libertad 
en la forma de construir las respuestas. Dependen de lo que el usuario teclea. 


COINCIDENCIAS CON PALABRAS CLAVE 


Sigmund utiliza el método de buscar una palabra conocida en la frase es- 
crita por el usuario. En otras palabras, busca una palabra clave mediante 
instrucciones de manejo de texto tales como INSTR. Lo hace en un orden 
predeterminado: busca primero un verbo o un adverbio; si no encuentra nin- 
guno (en una lista programada en líneas de DATA), busca un sujeto, es de- 
cir YO, TU, ELLOS, etc. Si no encuentra nada de esto en la frase, echa 
mano de una reserva de respuestas como las que vimos antes, pero sólo 
como último recurso. 

Por tanto, el ordenador examina una serie de posibilidades y decide la 
acción a tomar. La técnica consiste en almacenar una colección de respues- 
tas, algunas parciales y otras completas. Fíjese en la instrucción DATA que 
sigue: 


DATA SUEÑO, CON QUE FRECUENCIA SUEÑASQ, 
PUEDES RECORDAR TUS SUEÑOS?, TE ENVIDIO ... YO 
NO PUEDO SOÑAR 


Es el aspecto típico de los datos que hay en Sigmund y contienen una con- 
testación completa o partes de ella. La primera palabra es la clave, que se 
asigna a un vector bidimensional; las tres frases restantes son las contesta- 
ciones asociadas con dicha clave. El signo % indica al ordenador que debe 
añadir la parte de la frase introducida por el usuario que sigue a la palabra 
clave. Por ejemplo, si el usuario escribe: 


SUEÑO CON BARCOS 
la respuesta puede ser: 
¿CON QUE FRECUENCIA SUEÑAS CON BARCOS? 


El resto de la frase del usuario, CON BARCOS, se toma a partir del punto 
en que termina la palabra clave y se la coloca en la posición en que estaba 
el signo %. Mediante INSTR se examina la respuesta. Si aparece el símbolo 
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%, se añade el resto mencionado. Así, si examina el listado de Sigmund 
verá que la subrutina GOSUB 400 contiene la línea: 


mira = INSTR(respuesta$,“%”) 


La subrutina GOSUB 430 escribe la respuesta adecuada, incluido el resto 
de la frase del usuario. 

Como los sujetos son las partes de la oración más frecuentes, no se los 
busca hasta el final, cuando no se ha encontrado otra palabra clave. Su efec- 
to es simplemente invertir la frase. Por ejemplo, si el usuario teclea: 


YO TENGO UN RAMO DE FLORES 


el ordenador contestará con: 


TU TIENES UN RAMO DE FLORES 


dando la impresión de que está confirmando lo que el humano ha dicho. 
Lo que ocurre es que encuentra la palabra clave YO TENGO y coloca en 
su lugar la frase TU TIENES más el resto de la frase tecleada, que se añade 
al final. 

Por último, si no encuentra ninguna palabra clave, responde con una de 
las frases de reserva. El programa continúa de forma incansable escribiendo 
contestaciones que son apropiadas para muchas situaciones en que se usa 
una palabra clave. Hay veces en que el resultado no es el apetecido, pero 
funciona en un buen porcentaje de ocasiones. Se podrían introducir mejo- 
ras en el programa, pero las aplazaremos hasta cuando haya tecleado 
Sigmund. 

Una meditación final. ¿Indican los programas como Sigmund que el or- 
denador y el programa tienen cierta inteligencia, o simplemente nos mues- 
tran cómo podemos sacar partido de la credulidad humana? 
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Sigmund: el programa 


Después de tanto esperar, hemos llegado por fin a nuestro primer programa 
verdaderamente comunicativo. Sigmund es imprevisible. A veces es cariño- 
so y atento; en otras ocasiones, insultante. Casi siempre sentirá que es hu- 
mano, pero hay momentos en que el ordenador que hay dentro se mostrará 
bruscamente como es. A diferencia de otros programas de este estilo que se 
han publicado anteriormente, he hecho que las respuestas de Sigmund sean 
variadas, de forma que no se pueda predecir fácilmente el tipo de contesta- 
ción que puede dar. Teclee! el programa cuidadosamente, ya que es muy 
largo, y use la función AUTO para numerar las líneas, que he mantenido 
uniformemente espaciadas. Después del listado encontrará nuevos detalles 
y comentarios. 


Programa SIGMUND (inglés) 


10 MODE 2 

20 ZONE 80 

30 PRINT"HELLO MY NAME IS SIGMUND." "WHAT IS YOU 
RS?" 

40 INPUT name$ 

50 PRINT,,,"NICE TO MEET YOU, ";name$ 

60 PRINT,"TELL ME WHY YOU WANT TO TALK TO ME" 


| A continuación damos dos versiones del programa, una en castellano y otra en inglés. Al 
elaborar la versión castellana sólo hemos intentado una adaptación superficial, pues los pro- 
blemas que plantea la gramática castellana son casi insuperables. (Piense el lector en cómo 
incluir en líneas de datos la conjugación de los verbos, regulares e irregulares.) No obstante, 
el programa es divertido e instructivo, y constituye en todo caso un punto de partida para 
un trabajo apasionante que el lector puede abordar: cómo hacer los diálogos más creíbles 
en castellano. (N. del T.) 
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70 CLEAR 

80 DIM gramin$(43) ,gramout$(43), matecn$(30,3) 
90 GOSUB 130 

100 GOSUB 260 

110 GOSUB 290 

120 END 

130 REM read gram 

140 RESTORE 780 

150 FOR datain=0 TO 43 

160 READ gramin$(datain),gramout$(datain) 
170 NEXT 

180 REM read match$ 

190 RESTORE 900 

200 FOR datain=0 TO 30 

210 FOR reply=0 TO 3 

220 READ matech$(datain, reply) 

230 NEXT reply 

240 NEXT datain 


250 RETURN 

260 PRINT,":":LINE INPUT phrase$ 
270 IF phrase$="END" THEN GOSUB 730 
280 RETURN 


290 FOR datain=0 TO 30 

300 find=INSTR(phrase$ match$(datain,0)) 
310 searcn=LEN (match$(datain,0)) 

320 IF find>0 THEN GOSUB 360 

330 NEXT 

340 IF find>0 THEN GOSUB 360 ELSE GOSUB 480 
350 RETURN 

360 x=INT(RND*(4)):1F x=0 GOTO 360 ELSE 370 
370 getreply$=match$(datain,x) 

380 GOSUB 400 

390 END 

400 look=INSTR(getreply$,"%") 

410 IF look>0 THEN GOSUB 1430 

1420 PRINT,getreply$:GOTO 70 

430 length=LEN (getreply$) 

440 replyless$=LEFT$(getreply$,(length-2)) 
450 length2=LEN(phrasej$) 

460 te$=RIGHT$(phrase$,(length2-(find+search))+1 


470 PRINT,replyless$;tg$:GOTO 70 
1480 RESTORE 780:FOR datain=0 TO 43 
490 sub1=INSTR(phrase$,gramin$(datain)) 
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S6 


500 
510 
520 
530 
540 
950 
560 
570 
580 


subllen=LEN (gramin$(datain)) 

IF sub1>0 THEN GOSUB 550 

NEXT 

IF subi>0 THEN GOSUB 550 ELSE GOSUB 660 
RETURN 

swap 1$=gramout$(datain) 

length2=LEN (phrase$) 

length3=LEN (swap 1$) 
te$=""+RIGHT$(phrase$,(length2-(subl+subllen 


))+1) 


590 
600 
610 
620 
630 
640 
650 


te$: 


660 


GOSUB 610 

RETURN 

FOR datain=0 TO 43 

subs2=INSTR(te$ gramin$í(datain)) 

IF subs2>1 THEN GOSUB 660 

NEXT 

IF subs2>1 THEN GOSUB 660 ELSE PRINT,swap1$; 
GOTO 70 

counter=INT(RND*(5)) 


670 ON counter GOTO 680,690,700,710 

680 PRINT,"PLEASE TELL ME MORE":GOTO 70 

690 PRINT,"HMMM, THAT'S VERY INTERESTING":GOTO 7 
0 

700 PRINT,"DO CARRY ON":GOTO 70 

710 PRINT,"I SEE":GOTO 70 

720 RETURN 

730 PRINT,"ARE YOU SURE YOU WANT TO END THIS CHA 
T qn 

740 a$=INKEY$:1F a$="" THEN 740 

750 IF a$="S" THEN 760 ELSE 70 

760 CLS:END 

770 RETURN 

780 DATA I“VE,YOU “VE,I“M,YOU“RE,I AM,YOU ARE,I H 
AVE ,YOU HAVE 

790 DATA I WAS,YOU WERE,I WILL ,YOU WILL ,YOURS,MI 
NE,MY ,YOUR 

800 DATA ME,YOU,YOU“RE,I”M,YOU ARE,I AM,YOU HAVE 
,1 HAVE 

810 DATA YOU“VE,I“VE,YOU WILL,I WILL ,YOU“LL,I“LL 
,YOU WERE 

820 DATA I WAS,THEY ARE, THEY ARE,SHE HAS,SHE HAS 
,HE HAS 

830 DATA HE HAS,WE ARE,WE ARE,THEY “RE ,THEY'RE,SH 


E IS,SHE IS 


840 DATA HE IS,HE IS,WE RE,WE “RE ,THEY HAVE,THEY 
HAVE ,SHE S 

850 DATA SHE"S,HE“S,HE“S,WE HAVE£,WE HAVE THEY “VE 
,THEY “VE 

860 DATA HE WAS,HE WAS,SHE WAS,SHE WAS,WE “VE ,WE” 
VE, THEY 

870 DATA THEY,HE WILL,HE WILL,SHE WILL,SHE WILL, 

WE WILL 

880 DATA WE WILL,THEY WILL,THEY WILL,SHE WAS,SHE 
WAS 

890 DATA THEY WERE,THEY WERE,SHE,SHE,HE,HE,WE ,WE 
,YOU,1,1 ,YOU 

900 DATA CAN YOU,OF COURSE I CAN,I CAN DO ANYTHI 
NG,1 WILL TRY TO £ 

910 DATA CAN I,YOU CAN DO WHAT YOU LIKE,YOU CAN 
2 

920 DATA YOU ARE RIGHT TO ASK ME 

930 DATA WOULD YOU,I WOULD NOT %£,1 WOULD 4 

940 DATA I'M NOT PREPARED TO SAY WHAT I THINK 
950 DATA WOULD 1,0F COURSE YOU WOULD % 

960 DATA DON“T YOU KNOW WHAT YOU WOULD DO? 

970 DATA I WOULD IF I WAS IN YOUR PLACE 

980 DATA HAVE YOU,WHAT I HAVE IS NOTHING TO DO W 
ITH YOU,I HAVE% 

990 DATA I DON“T WISH TO TELL YOU THAT 

1000 DATA HAVE 1,IS THAT A RETHORICAL QUESTION? 
1010 DATA DON"T YOU KNOW WHETHER YOU HAVE 4 ,YOU 
SEEM VERY UNSURE 

1020 DATA DREAMS,DREAMS ARE A RELEASE VALVE FOR 
YOUR SUBCONSCIOUS 

1030 DATA DO YOUR DREAMS INVOLVE OTHER PEOPLE? 
1040 DATA DO YOU LIKE DREAMS %4 

1050 DATA DREAM,HOW OFTEN DO YOU DREAM 4 

1060 DATA CAN YOU REMEMBER YOUR DREAMS? 

1070 DATA I ENVY YOU ... I CAN"T DREAM 

1080 DATA COMPUTERS,ARE YOU WORRIED ABOUT MACHIN 

ES? 

1090 DATA AS A COMPUTER I TAKE A DIFFERENT VIEW 
1100 DATA 1D MUCH RATHER TALK TO A COMPUTER THA 

N YOU 

1110 DATA COMPUTER,WE ARE HERE TO TALK ABOUT YOU 
NOT ME 

1120 DATA COMPUTERS ARE PERFECT 

1130 DATA YOU ARE PRIVILEGED TO TALK TO ME 

1140 DATA MACHINE,DO MACHINES WORRY YOU? 
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1150 DATA YOU SEEM TO BE CONCERNED ABOUT MACHINE 


S 


1160 DATA I'M NOT LIKE OTHER MACHINES 
1170 DATA DEPRESSED,DO YOU FEEL DEPRESSION 1S NO 


RMAL.? 


1180 DATA HOW OFTEN ARE YOU DEPRESSED? 

1190 DATA WHY ARE YOU DEPRESSED 4 

1200 DATA MAD,IS THERE ANY MADNESS IN YOUR FAMIL 
Y?,YOUÚ MUST BE MAD 


1210 
1220 
1230 
1240 
1250 
1260 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


MAD 2 

MOTHER, WHAT IS YOUR MOTHER LIKE? 

ARE ALL MOTHERS THE SAME? 

MY MOTHER 1S A SILICON CHIP 
FATHER,TELL ME ABOUT YOUR FATHER 

WHAT IS YOUR RELATIONSHIP LIKE?, WHAT 


DO YOU TALK TO YOUR PARENTS ABOUT? 


1270 
1280 
NSHIP 
1290 
STER? 
1300 
OTHER 
1310 
BROT 
1320 
QUT 4 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
RRY 0 
1410 
4 
1420 
1430 
1440 
YES? 
1450 


SE ABOUT £4 


DATA 
DATA 


DATA 


DATA 
dd 
DATA 
HER 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
N 

DATA 


DATA 
DATA 
DATA 


DATA 


SISTER,I LIKE MY SISTER 
THIS SOUNDS LIKE A COMPLICATED RELATIO 


WHAT ARE YOUR FEELINGS TOWARDS YOUR SI 
BROTHER ,WHAT WOULD YOU DO WITHOUT A BR 
DOES YOUR BROTHER ANNOY Y0U?,1I HAVE NO 
DISLIKE,WHAT 1S 1T THAT YOU DISLIKE AB 


1 DISLIKE HUMANS 

IT IS BETTER TO LIKE THAN NOT 
FEELINGS,WE ALL HAVE FEELINGS 

DO YOU OFTEN FEEL 4 

FEELINGS SHOULD BE EXPRESSED 

LOVE,LOVE IS AN ILOGICAL STATE 

HOW DO YOU KNOW THAT YOU ARE IN LOVE £ 
I WAS IN LOVE ONCE BUT ... SORRY DO CA 


HATE ,I HATE YOU ,WHAT DO YOU HATE ABOUT 
LOVE IS FAR BETTER THAN HATE 

SORRY ,THERE IS NO NEED NO BE SORRY 

I HATE PEOPLE WHO THINK THEY“RE SORRY, 


APOLOGTSE,DO NOT APOLOGISE, WHY APOLOGI 
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Programa SIGMUND (castellano) 


10 MODE 2 

20 ZONE 80 

30 PRINT"HOLA, MI NOMBRE ES SIGMUND." , "COMO TE 
LLAMA S" 

4O INPUT nombre$ 

50 PRINT,,, "ENCANTADO DE CONOCERTE, "snombre$ 
60 PRINT,"POR QU'E QUIERES HABLAR CONMIGO?" 

70 CLEAR 


80 


DIM gramin$(43) ,gramout$(43), matcn$(30,3) 


90 GOSUB 130 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 


GOSUB 260 

GOSUB 290 

END 

REM LEER GRAMATICA 
RESTORE 780 

FOR datain=0 TO 43 
READ gramin$(datain),gramout$(datain) 
NEXT 

REM leer maten$ 
RESTORE 900 

FOR datain=0 TO 30 


FOR reply=0 TO 3 

READ match$(datain, reply) 

NEXT reply 

NEXT datain 

RETURN 

PRINT,":":LINE INPUT frase$ 

IF frase$f="END" THEN GOSUB 730 
RETURN 

FOR datain=0 TO 30 


find=INSTR(frase$ match$(datain,0)) 
search=LEN (match$(datain,0)) 

IF find>0 THEN GOSUB 360 

NEXT 

IF find>0 THEN GOSUB 360 ELSE GOSUB 480 
RETURN 

x=INT(RND*(4)):1F x=0 GOTO 360 ELSE 370 
getreply$=maten$(datain,x) 

GOSUB 400 

END 

look=INSTR(getreply$,"%") 

IF look>0 THEN GOSUB 430 


60 


420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 


)+1) 


590 
600 
610 
620 
630 
640 
650 
te$ 
660 
670 
680 

70 
690 
700 
710 
720 
730 
STA 
740 
750 
760 
770 
780 


PRINT ,getreply$:GOTO 70 
length=LEN(getreply$) 
replyless$=LEFT$(getreply$,(length-2)) 
length2=LEN(frase$) 
te$=RIGAT$(frase$,(length2-(find+search))+1) 
PRINT ,replyless$;tg$:GOTO 70 

RESTORE 780:FOR datain=0 TO 43 
sub1=INSTR(frase$,gramin$(datain)) 
subllen=LEN (gramin$(datain)) 

IF sub1>0 THEN GOSUB 550 

NEXT 

IF sub1>0 THEN GOSUB 550 ELSE GOSUB 660 
RETURN 

swap 1$=gramout$(datain) 

length2=LEN (frase$) 

length3=LEN(swap1$) 

tg$=""+RIGHT$(frase$ ,(length2-(subl+subllen) 


GOSUB 610 

RETURN 

FOR datain=0 TO 43 

subs2=INSTR(tg$ ,gramin$(datain)) 

IF subs2>1 THEN GOSUB 660 

NEXT 

IF subs2>1 THEN GOSUB 660 ELSE PRINT ,swap1$; 


:GOTO 70 


counter=INT(RND*(5)) 
ON counter GOTO 680,690,700,710 
PRINT,"POR FAVOR, CU'“ENTAME M'AS COSAS" :GOTO 


PRINT,"HUMM. MUY INTERESANTE":GOTO 70 

PRINT ,"CONTIN “UA":GOTO 70 

PRINT ,"ENTIENDO":GOTO 70 

RETURN 

PRINT,"EST“A SEGURO DE QUE QUIERE TERMINAR E 
CHARLA?" 

a$=INKEY$:1F a$="" THEN 740 


If a$="S" THEN 760 ELSE 70 

CLS: END 

RETURN 

DATA YO TENGO,T“U TIENES,YO SOY,T“U ERES,TEN 


GO,TIENES,SOY ,ERES 


790 


“LO, 


DATA YO HE,T“U HAS,YO VOY A,T“U VAS A,TUYO,M 
MIS,TUS 


800 DATA A M'I ME,A T'I TE,T'U ERES,YO SOY,ERES, 
SOY,T'“U TIENES,YO TENGO 

810 DATA TU HAS,YO HE,T“U VAS A,YO VOY A,VAS A, 
VOY A 

820 DATA T'U ERAS,YO ERA,ELLOS SON,ELLOS SON,ELL 
A TIENE,ELLA TIENE 

830 DATA “EL TIENE,”EL TIENE,NOSOTROS SOMOS ,NOSO 
TROS SOMOS,SON,SON,ELLA ES, ELLA ES 

840 DATA “EL ES,“EL ES,SOMOS,SOMOS,ELLOS HAN ,ELL 
OS HAN ,ES,ES 

850 DATA ES,ES,NOSOTROS TENEMOS,NOSOTROS TENEMOS 
,HAN ,HAN 


860 DATA “EL ERA, “EL ERA,ELLA ERA,ELLA ERA,TENEM 


OS ,TENEMOS 

870 DATA ELLOS VAN A,ELLOS VAN A,'“EL VA A,“EL VA 
A,ELLA VA A,ELLA VA A 

880 DATA NOSOTROS VAMOS A,NOSOTROS VAMOS A,ELLOS 
ERAN, ELLOS ERAN,ELLA HA,ELLA HA 

890 DATA ERAN, ERAN ,ELLA,ELLA, “EL, “EL NOSOTROS ,NO 
SOTROS,T“U,YO,YO,T“U 

900 DATA PUEDES,CLARO QUE PUEDO,PUEDO HACERLO TO 
DO,INTENTAR'E £ 

910 DATA PUEDO,PUEDES HACER LO QUE QUIERAS,PUEDE 
S-7 

920 DATA HACES BIEN EN PREGUNTARME 

930 DATA QUIERES,NO QUIERO %4,S“I QUIERO % 

940 DATA NO PUEDO DECIR LO QUE PIENSO 

950 DATA TENGO QUE,CLARO QUE TIENES QUE % 

960 DATA NO SABES QU'E TIENES QUE HACER? 

970 DATA YO LO HAR“IA SI ESTUVIERA EN TU LUGAR 
980 DATA TIENES,LO QUE TENGO NO TIENE NADA QUE V 
ER CONTIGO,TENGO % 

990 DATA NO QUIERO DECIRLO 

1000 DATA DEBO,ES ESO UNA PREGUNTA RET“ORICA? 
1010 DATA ACASO NO SABES SI DEBES %,PARECES MUY 
INSEGURO 

1020 DATA SUENOS,LOS SUENOS SON UNA VALVULA DE 

ESCAPE PARA TU SUBCONSCIENTE 

1030 DATA APARECEN OTRAS PERSONAS EN ELLOS? 

1040 DATA TE GUSTAN LOS SUENOS % 

1050 DATA SUENO,CON QU'E FRECUENCIA SUEMAS 4 
1060 DATA PUEDES RECORDAR TUS SUENOS? 

1070 DATA TE ENVIDIO ... YO NO PUEDO SONMAR 

1080 DATA ORDENADORES ,TE PREOCUPAN LAS M'AQUINAS 
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1090 DATA COMO ORDENADOR QUE SOY VEO LAS COSAS D 
E OTRA FORMA 

1100 DATA PREFERIR'IA HABLAR CON UN ORDENADOR AN 
TES QUE CONTIGO 

1110 DATA ORDENADOR,ESTAMOS AQU'I PARA HABLAR DE 
TI - NO DE M'I 

1120 DATA LOS ORDENADORES SOMOS PERFECTOS 

1130 DATA TIENES SUERTE DE PODER HABLAR CONMIGO 
1140 DATA M'AQUINA,TE PREOCUPAN LAS M'AQUINAS? 
1150 DATA PARECES MUY PREOCUPADO POR LAS M'AQUIN 


1160 DATA YO NO SOY COMO OTRAS M'AQUINAS 

1170 DATA DEPRIMIDO,TE PARECE NORMAL ESTAR DEPRI 

MIDO? 

1180 DATA CON QU'E FRECUENCIA TE SIENTES DEPRIMI 

DO? 

1190 DATA POR QU'E ESTAS DEPRIMIDO? 

1200 DATA LOCO,HAY ALG'UN CASO DE LOCURA EN TU F 

AMILIA?,TIENES QUE ESTAR LOCO 

1210 DATA LOCO 4 

1220 DATA MADRE,C“OMO ES TU MADRE? 

1230 DATA SON IGUALES TODAS LAS MADRES? 

1240 DATA MI MADRE ES UNA PASTILLA DE SILICIO 
1250 DATA PADRE,H'ABLAME DE TU PADRE 

1260 DATA COMO ES TU RELACION CON TU PADRE? ,DE 
QU'E HABLAS CON TUS PADRES? 

1270 DATA HERMANA,ME GUSTA MI HERMANA 

1280 DATA PARECE UNA RELACION COMPLICADA 

1290 DATA QU'E SIENTES HACIA TU HERMANA? 

1300 DATA HERMANO,QU'E HAR“IAS SIN UN HERMANO? 
1310 DATA TE MOLESTA TU HERMANO? ,YO NO TENGO NIN 
GUN HERMANO 

1320 DATA NO ME GUSTA, DIME POR QU'E NO TE GUSTA 
2 

1330 DATA A M”I NO ME GUSTAN LOS HUMANOS 

1340 DATA TEN CUIDADO CON ESAS MAN'“IAS 

1350 DATA SENTIMIENTOS,TODOS TENEMOS SENTIMIENTO 
Ss 

1360 DATA TE SIENTES A MENUDO 4 

1370 DATA SE DEBEN EXPRESAR LOS SENTIMIENTOS 
1380 DATA AMO A,EL AMOR ES UN ESTADO IL“OGICO 
1390 DATA C“OMO SABES QUE ESTAS ENAMORADO DE %£ 
1400 DATA YO ME ENAMOR'E UNA VEZ PERO ... LO SIE 
NTO PERO NO PUEDO SEGUIR 
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Si le resulta difícil seguir la marcha del programa, aquí tiene una lista de 
las subrutinas y sus funciones. 


GOSUB 
GOSUB 
GOSUB 


GOSUB 
GOSUB 


GOSUB 


GOSUB 
GOSUB 
GOSUB 


GOSUB 


GOSUB 


130 
260 
290 


730 
360 


Inicializa los vectores y les asigna las palabras clave. 
Solicita una entrada del usuario. 

Busca una palabra clave, como SUEÑO, HERMANO, 
ORDENADOR. 

Comprueba si el usuario desea terminar la conversación. 
Si encuentra una coincidencia en la subrutina GOSUB 290 
elige aleatoriamente una respuesta de entre las tres almace- 
nadas en la correspondiente instrucción DATA; por ejem- 
plo, si la palabra clave era PERDONA, la instrucción data 
puede ser la siguiente: 


1430 DATA PERDONA, NO TIENES POR QUE PEDIR 
PERDON, NO ME GUSTA LA GENTE QUE PIDE PERDON, 


VALE 

480 Comprueba la existencia de un sujeto: YO, TU, EL, NOSO- 
TROS, etc. 

400 Comprueba si hay un signo % en la respuesta elegida. 

430 Une la respuesta con el resto de la frase introducida. 

550 Intercambia el primer sujeto encontrado con el opuesto; es 
decir, YO se convierte en TU y luego añade el resto de la fra- 
se que sigue al sujeto. 

610 Comprueba si hay más de dos sujetos en la expresión. Si es 
así, va a la subrutina GOSUB 660; en caso contrario escribe 
el sujeto intercambiado y completa la frase con el resto. 

660 Escribe una de las cuatro frases de reserva. 


DIAGRAMAS DE FLUJO Y ESQUEMAS 


Para ayudarle a entender el programa, incluyo aquí un diagrama de flujo 
global y diagramas parciales de las subrutinas. En la figura 9.13 se esque- 
.matiza la relación entre los vectores y las líneas de datos. 
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Leer 
sujetos 
y datos 


Figura 9.1 Subrutina 130. 


Comienzo 


Figura 9.2 Subrutina 260. 


¿Coincidencia 
con palabra 


clave? 


Figura 9.3 Subrutina 290. 


Borrar 


variables 


Figura 9.4 Subrutina 730. 
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Comienzo 


respuesta$= 
contestación 
por teclado 


GOSUB 
400 


Figura 9.5 Subrutina 360. 


Comienzo 


¿Coincidencia 
en sujeto? 


Figura 9.6 Subrutina 480. 


Escribir 
respuesta 


Borrar 
variables 


Figura 9.7 Subrutina 400. 


Tomar 
frase para 
añadir 


Escribir 
respuesta 
y añadido 


Borrar 
variables 


Figura 9.8 Subrutina 430. 
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Cambiar 
el sujeto 


Crear 
añadido 


Figura 9.9 Subrutina 550. 


Escribir 
sujetos 
cambiados 
y el añadido 


Borrar 
variables 


Figura 9.10 Subrutina 610. 
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Generar 
número 
aleatorio 


Escribir 
frase 


Borrar 
variables 


Figura 9.11 Subrutina 660. 


MEJOREMOS EL PROGRAMA 


Sigmund puede mantener una conversación durante un buen rato y de for- 
ma bastante correcta, pero tiene fallos. No sabe qué hacer con frases que 
tengan más de un sujeto. Por tanto, una expresión como TU y YO no será 


2000 DATA AMSTRAD, MI PADRE ERA UN AMSTRAD, 
¿TE GUSTAN LOS ORDENADORES AMSTRAD?, DE LOS 
PEQUEÑOS AMSTRAD SALEN GRANDES OBRAS 


tratada. Usando las mismas ideas, usted podría hacer que Sigmund inserte 
el sujeto correcto. 

Otra forma de perfeccionar el programa es personalizarlo según sus pro- 
pios gustos o necesidades. Puede hacer esto cambiando las líneas de datos 
del final del programa. Por ejemplo, puede agregar la palabra clave «Ams- 
trad» al diccionario de Sigmund. La correspondiente instrucción DATA 
puede ser: 


Borrar 
variables 
Dimensionar 
vectores 
GOSUB 130 
GOSUB 260 


G 


OSUB 290 


GOSUB 480 
GOSUB 550 
GOSUB 610 


GOSUB 660 


GOSUB 730 


Fin 


Figura 9.12 Diagrama de flujo para Sigmund. 
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SoY ERES SOMOS SOIS 


gramin$(1) 


gramout$(1) 


gramins$(2) 


gramout$(2) 


Figura 9.13 Datos almacenados en los vectores de sujetos. 


No olvide dimensionar correctamente el vector modificando la instrucción 
DIM. Modifique también los límites del bucle FOR-NEXT en el que se leen 
los datos. 

El orden de los datos es muy importante. Sigmund trabaja sobre la base 
de comprobar la primera palabra clave que se encuentra en la lista y ac- 
tuando en consecuencia. Cambie el orden de las claves para ver cómo afec- 
ta a los resultados del programa. El orden puede ser esencial; yo prefiero 
poner antes las claves más raras; si las pusiera al final, probablemente se le 
adelantaría alguna de las más corrientes. Usted puede también hacer el pro- 
grama más creíble poniendo más signos % en las líneas de datos. 

Sigmund es un ejemplo del tipo de programa que usted puede construir 
con un poco de imaginación. Introduzca las mejoras que desee, pero intente 
también escribir sus propios programas interactivos. En los capítulos si- 
guientes veremos algunas otras ideas sobre programación interactiva y ana- 
lizaremos el problema de la inteligencia artificial. Ah, se me olvidaba: re- 
cuerde que he dicho que Sigmund no es un psicoanalista normal. Las res- 
puestas que da Sigmund están, como usted ha visto, construidas por el pro- 
gramador, y por lo tanto reflejan las ideas del autor, no las de un psicólogo 
profesional. ¡Feliz consulta! 
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El entrevistador 


La simulación puede ser al mismo tiempo práctica y divertida, y este capí- 
tulo vamos a tratar de implementar otro programa interactivo, pero esta 
vez basado en una entrevista. Al mismo tiempo veremos cómo utilizar el 
programa Sigmund como base para otros. 

De la misma forma que propusimos un objetivo global para la forma en 
que Sigmund debía trabajar, pensaremos qué características debe tener el 
programa Entrevistador. Podríamos hacer que el ordenador simulase una 
entrevista para conseguir un puesto de trabajo, de forma que sea el orde- 
nador el que hace la entrevista. Esto significa que el ordenador va a tener 
que hacer preguntas y al mismo tiempo responder a las del usuario. Sería 
un desperdicio no usar el programa Sigmund como base para éste, puesto 
que ya lo hemos programado para simular una conversación inteligente. Na- 
turalmente, tendremos que cambiar algunas instrucciones DATA que con- 
tienen palabras clave, y algunas de las respuestas previstas no parecen muy 
adecuadas para un entrevistador. Cuántas entrevistas ha escuchado Ud. en 
las que el entrevistador diga: 


TE ODIO 


¿TE MOLESTA TU HERMANO? 


Seguro que ninguna. Pero quizás a usted le agrade la idea de tener un en- 
trevistador maniaco que le insulte; entonces puede conservar alguna de las 
contestaciones de Sigmund. Pero no basta con cambiar líneas de datos. Que- 
remos que el ordenador haga preguntas y que en función de la respuesta, o 
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bien la discuta, o bien siga preguntando. Podemos conseguirlo insertando 
nuevas rutinas que contengan los datos para las preguntas y fijen nuevas 
redes de posibles caminos que el programa pueda seguir. 

Cambiemos, pues, nuestro Sigmund y veamos qué se puede lograr. Car- 
gue Sigmund en el ordenador y haga las siguientes modificaciones: 


1. Borre las líneas 10 a90 ambas inclusive. 
2. Borre las líneas 660 a 720 ambas inclusive. 


Ahora añada las siguientes líneas: 


10 MODE 2:ZONE 80 

15 MEMORY 39999 

20 POKE 40000,0 

25 PRINT"HOLA. MI NOMBRE ES GONZALEZ. SOY EL JEF 
E DE PERSONAL" ,"DE GARCIA E HIJOS, S.A.","VOY A 
ENTREVISTARLE. SU NOMBRE ES ... " 

30 INPUT nombre$ 

40 PRINT"HABLEME DE SU PERSONALIDAD" 

65 CLEAR:DIM gramin$(43),gramout$(43),matehn$(30, 
3),pregunta$(3) 

70 GOSUB 130:GOTO 100 

75 CLEAR:DIM gramin$(43) ,gramout$(43),maten$(30, 
3), pregunta$(3):GOSUB 130:GOSUB 2000 

80 GOSUB 1900:GOTO 70 

660 GOTO 75 

680 RETURN 

1900 a$=PEEK(40000)+1 

1910 PRINT ,pregunta$(af) 

1920 POKE 40000,a% 

1930 RETURN 

2000 FOR x=1 TO 3 

2010 READ pregunta$(x) 

2020 NEXT 

2030 RETURN 

2040 DATA CUANTOS TRABAJOS HA TENIDO ANTES? 
2050 DATA POR QUE SOLICITA ESTE TRABAJO? 

2060 DATA ESTA USTED CUALIFICADO PARA ESTE PUEST 
0? 


El programa funciona ahora de forma diferente. La interacción resultará 
del estilo de lo que sigue: 
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ORDENADOR: HOLA. MI NOMBRE ES GONZALEZ. SOY JEFE 
DE PERSONAL DE GARCIA E HIJOS, S. A. VOY 
A ENTREVISTARLE. 
SU NOMBRE ES... 
HUMANO: JEREMY. 
ORDENADOR: ENCANTADO DE CONCOCERLE, JEREMY. 
HABLEME DE SU PERSONALIDAD. 
HUMANO: SOY LICENCIADO EN FISICAS Y TENGO 
GRAN EXPERIENCIA. 
ORDENADOR: ¿POR QUE SOLICITA ESTE TRABAJO? 
HUMANO: ES QUE ESTOY LOCO POR VOLVER A 
TRABAJAR COMO CAZADOR DE RATAS. 
ORDENADOR: TIENES QUE ESTAR LOCO. 
HUMANO: SI. 
ORDENADOR: ¿SEGURO? 
HUMANO: PIENSO QUE SI. 
ORDENADOR: TU NO ERES CAPAZ DE PENSAR. 
HUMANO: MIRA QUIEN HABLA. TU NO ERES MAS QUE 
UN ORDENADOR. 
ORDENADOR: TIENES SUERTE DE PODER HABLAR 
CONMIGO 
HUMANO: QUIZA. 
ORDENADOR: ¿ESTA USTED CUALIFICADO PARA ESTE 
PUESTO? 


¿Se da cuenta de lo que está haciendo el programa? Bueno, examinemos un 
poco los cambios realizados. GOSUB 2000 carga en el vector question$ las 
preguntas que el ordenador va a hacer. Para no complicar demasiado el 
ejemplo, sólo he añadido tres preguntas para que usted pueda ver lo que 
está pasando. GOSUB 1900 es la rutina responsable de escribir una de estas 
cuestiones, pero esta vez, en lugar de una elección aleatoria, llevo la cuenta 
de las preguntas que ya han sido hechas por el ordenador mediante el con- 
tador a%. Hay una importante razón para escoger a% como variable que 
lleve esta cuenta. Al comienzo del programa y después de cada interacción, 
las variables se borran de la memoria por efecto de CLEAR. La única va- 
riable cuyo valor no se pierde es la variable entera a%, que está localizada 
en una posición de memoria protegida. Como necesitamos recordar qué da- 
tos hemos utilizado, no podemos permitirnos el lujo de perder esta infor- 
mación. Dado que a% no se ve afectada por CLEAR, podemos utilizarla a 
lo largo de todo el programa. La razón por la que esta variable a% no se 
borra al utilizar el comando CLEAR es que el valor actual de la variable 
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se guarda, en lugar de la memoria por encima del máximo utilizable por 
BASIC. Ésta es la función de las instrucciones PEEK y POKE de las líneas 
1900 a 1920. Volveré al tema de los contadores enseguida, pero ahora siga- 
mos estudiando los cambios. 

Hemos cambiado GOSUB 660 simplemente para hacer retroceder el pro- 
grama a la línea 75, donde eventualmente es reconducido a la subrutina GO- 
SUB 1900. El principio del programa se ha cambiado para proporcionar un 
nuevo mensaje de arranque; los restantes cambios nos permiten disponer de 
nuevas rutinas. 

El nuevo programa trabaja de la siguiente forma: si encuentra una pala- 
bra clave, se comporta exactamente igual que Sigmund y escribe una con- 
testación adecuada. En cambio, si no encuentra claves en lo tecleado por el 
usuario, la subrutina GOSUB 660 hace que el programa emita una de las 
preguntas en lugar de escribir una frase de reserva. La siguiente vez que 
esto ocurra, Entrevistador habrá incrementado el contador y hará una pre- 
gunta diferente. 

La figura 10.1 muestra un diagrama de flujo del nuevo programa. Si no 

“ lo ve claro, compárelo con el diagrama del programa Sigmund. 
Para completar la labor, usted tiene que añadir ahora las líneas DATA que 
necesita la subrutina GOSUB 2000, sin olvidarse de hacer los debidos cam- 
bios en DIM y en los límites del lazo. Decida usted cuáles son las palabras 
claves originales que vale la pena conservar, O cambiar alguna de las res- 
puestas asociadas con esas claves. Es posible hacer que Entrevistador ana- 
lice el rendimiento asignando calificaciones a cada pregunta contestada y 
mostrando al final un dictamen en función de la puntuación obtenida. Pue- 
de fijar un tiempo límite en el programa; la forma más sencilla es terminar 
la interacción cuando se han hecho todas las preguntas. El programa Sig- 
mund puede servir de base para muchas otras simulaciones; esto le demues- 
tra lo fácil que es cambiar el tipo de simulación. 

He dicho que estaba usando un contador en el programa Entrevistador 
y esto hace surgir una vez más el tema de las mejoras de los programas an- 
teriores. Un problema que tiene Sigmund, y por lo tanto Entrevistador, es 
que al elegir aleatoriamente las contestaciones, es posible que una misma 
respuesta aparezca unas cuantas veces seguidas. En cambio, si se utiliza un 
contador, se puede hacer que el programa funcione durante más tiempo sin 
que se repitan las frases. Con una rutina contadora se puede saber qué 
respuestas ya han sido utilizadas, y la siguiente vez que se necesite una 
respuesta de la misma línea de datos se echará mano de la siguiente que 
haya en dicha línea. Lo mismo ocurre con las respuestas que da el usua- 
rio. Si éste teclea la misma frase dos veces, este hecho será detectado y 
se avisará al usuario para que escriba algo distinto. Pero recuerde que 
todas las variables se pierden cuando se ejecuta la instrucción CLEAR, 


Comienzo 


Borrar 
variables 
Dimensionar 
vectores 
GOSUB 130 
GOSUB 2000 


GOSUB 260 


GOSUB 1900 


GOSUB 480 


¡GOSUB 360) 


GOSUB 550 


GOSUB 610 


GOSUB 660 


GOSUB 730 


Figura 10.1 Diagrama de flujo para el Entrevistador. 
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por lo que hay que utilizar POKE para guardar las variables por encima 
de HIMEM. 

Estos programas siempre pueden ser mejorados y yo ahora le paso la pe- 
lota. Los métodos para crear programas interactivos ya están expuestos; 
ahora se trata de encontrar formas de incorporar lo que hemos aprendido 
en nuevos y novedosos programas. Para ayudarle en esta tarea, el próximo 
capítulo le ofrece diversas ideas para realizar programas interactivos; verá 
cómo hay muchas aplicaciones en las que usted puede utilizar las técnicas 
explicadas. 
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Rompecabezas 


En este libro hemos tratado muchos temas y hemos aprendido muchas téc- 
nicas diferentes. ¿Para qué nos va a servir tanta sabiduría? La respuesta está 
en devanarse los sesos. Busquemos en nuestra mente ideas para nuevos pro- 
gramas creativos. Examinemos algunas recientes novedades en programa- 
ción y veamos si es posible utilizar nuestras técnicas para desarrollar estos 
programas por nuestros propios medios. 


SIMULACIÓN: UTILIZACIÓN DE TECNICAS INTERACTIVAS EN 
LOS JUEGOS DE AVENTURA 


Quizá piense usted que los únicos juegos que se pueden practicar en orde- 
nadores domésticos son aquéllos en los que se trata de proteger a la madre 
Tierra de invasores espaciales de todos los colores, dispuestos a conquistar 
la parte baja de su pantalla. Pero se pueden hacer muchos juegos basados 
en tratamiento de textos. Varios juegos de tablero muy conocidos están sien- 
do implementados en micros domésticos, y pueden ser tan desafiantes y di- 
vertidos como los de las máquinas tragaperras. 

Un área muy popular en este campo son los juegos de aventura. Se co- 
loca al usuario en una situación determinada y con cierto objetivo, normal- 
mente sobrevivir a los furiosos ataques de criaturas nada amistosas. No voy 
a enseñarle a escribir programas de aventura, pues necesitaría un libro en- 
tero, pero le aseguro que es posible utilizar los métodos que hemos visto 
en la creación de programas de este estilo. 

Por ejemplo, en un programa de aventura, el ordenador se apoya en ins- 
trucciones que el usuario le da en forma de texto tecleado. Esto requiere la 
introducción de un diccionario en el programa. Un buen programa de aven- 
tura permitirá que una misma orden se teclee de distintas maneras. Por ejem- 
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plo, si usted le dice al ordenador que vaya al NORTE, debería ser indife- 
rente que pulse la palabra completa o simplemente una N. Mediante una 
búsqueda selectiva por sólo algunas letras de la palabra es posible aumentar 
el vocabulario válido. Las instrucciones de manejo de texto son especial- 
mente cómodas en este área. 


SIMULACIÓN 2: EDUCACIÓN 


Un temor profundamente sentido por quienes no conocen los ordenadores 
es que las máquinas invadan las aulas y sustituyan la labor del profesor. 
Los programas de educación no pretenden tal cosa, sino más bien ser útiles 
como una ayuda a la enseñanza, bien sea en clase o en casa. 

Podemos incorporar en un programa algunas de las cualidades de un 
maestro y simularlas en la comprobación de la habilidad de un niño para 
realizar una determinada tarea. Las ideas más obvias que se nos vienen a 
la mente son comprobar si los niños saben la tabla de multiplicar, alguna 
otra tarea matemática, el alfabeto o cosas por el estilo. Lo más importante 
en un programa educativo es asegurarse de que sea interactivo. ¿Detecta 
bien los errores? ¿Qué ocurre si el niño pulsa una tecla equivocada por des- 
cuido? Además, ¿es clara para los niños la explicación? ¿Qué tal es la pre- 
sentación en pantalla? 

Ya hemos tratado todos estos aspectos; ahora. puede empezar a ponerlos 
en práctica. Atrévase a experimentar. En el caso de los programas infanti- 
les, la mejor forma de comprobar si su programación ha sido buena, es que 
alguna de las presuntas víctimas prueben el programa. Procure observar cui- 
dadosamente qué tal se manejan con el programa y si hay una comunica- 
ción evidente entre ellos y el ordenador. A fin de cuentas, lo que se preten- 
de de ellos es que interactúen con el programa. 


SIMULACIÓN 3: NEGOCIOS 


También los programas de trabajo deberían ser más interactivos. Los pro- 
gramas de negocios suelen ser de los más difíciles de usar entre los que yo 
conozco. En este campo se necesita una comunicación mucho más fácil. Si- 
mular un negocio en forma de juego es un ejercicio que hoy se puede in- 
tentar. ¿Por qué no utilizamos el programa Sigmund como base de un jue- 
go que represente una sesión del Consejo de Administración? El ordenador 
sería el Presidente; su objetivo es convencer a los restantes miembros del 
Consejo para que acepten el proyecto que propone. Quizás el ordenador ten- 
ga que representar el papel de varias personas. Con un poco de imaginación 
se puede generar un montón de programas. 
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Finalmente, las técnicas interactivas se pueden emplear en la realización 
de cuestionarios. Usted puede hacer tests basados en ellas; por ejemplo, los 
tests de personalidad pueden ser un buen candidato. La crítica de diagnós- 
ticos es un área en creciente desarrollo. La próxima generación de ordena- 
dores, denominada por muchos quinta generación, estará formada por or- 
denadores que implementen procesadores de información y sistemas ex- 
pertos. 

Hay sistemas en que los ordenadores pueden tomar decisiones a partir de 
la información que han acumulado y máquinas que pueden por acumula- 
ción de experiencia. Ya es posible implementar alguna de estas habilidades 
en BASIC. Cuando usted esté más familiarizado con el lenguaje, puede de- 
cidir extender sus actividades y profundizar en la programación más 
avanzada. 

El mensaje global de este capítulo es que la programación interactiva es 
una cuestión de hombre y máquina en perfecta armonía. Bien, esto tal vez 
no sea factible del todo, pero si usted consigue en su programa conectar 
con la gente que lo usa y con su entorno, tendrá ante sí un amplio camino 
en la creación de programas que interactúen con el usuario. Y ese es el pro- 
pósito de la programación interactiva. Hombre y máquina comunicando li- 
bremente entre sí. ¿Y en cuanto a la armonía? ¡Ese es otro problema! 
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¿Inteligencia artificial? 


Hace ya mucho tiempo que los hombres están investigando los procesos 
mentales, enfocando la cuestión con todas las perspectivas posibles. Pero 
este estudio sólo ha progresado con la llegada de los grandes ordenadores. 
El ordenador ha proporcionado el instrumento perfecto para estudiar el pro- 
ceso del pensamiento y simular la actividad mental del hombre. El libro se 
ha centrado en este último objetivo mediante la escritura del programa 
Sigmund. 

En las primeras páginas de este libro le he planteado un par de cuestiones 
sobre las que reflexionar. ¿Pueden pensar las máquinas? ¿Qué es la inteli- 
gencia artificial? Ahora que hemos llegado al final, usted puede empezar a 
esbozar algunas respuestas. Yo no tengo contestación alguna, sólo más pre- 
guntas. Y no es que quiera eludir dar una respuesta, pero cuando uno co- 
mienza a pensar en la inteligencia de las máquinas hay que considerar bas- 
tantes cosas. En primer lugar, está el problema de definir lo que nosotros 
mismos entendemos por inteligencia. Este debate concreto esta candente aún 
entre los psicólogos y los distintos argumentos necesitarían un libro para sí 
mismos. Para los fines de este libro, la inteligencia comprende el proceso 
seguido por la mente humana para realizar una serie de tareas: la habilidad 
para conectar una idea con otra y el trabajo en varios niveles diferentes. 

Por otra parte, una de las convicciones que surgen de la investigación en 
inteligencia artificial es que sabemos muy poco de nosotros mismos y de lo 
que puede ser la naturaleza intrínseca de la inteligencia. Los ordenadores 
pueden ser muy buenos para realizar tareas concretas, incluso mejores que 
los hombres, pero cuando se enfrentan con labores que requieren conoci- 
mientos adquiridos en diferentes áreas, el ordenador aún tiene mucho que 
aprender. Entonces, ¿qué hemos conseguido escribiendo Sigmund? ¿Es un 
programa de inteligencia artificial? Estamos haciendo que el ordenador se 
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comporte de forma que simule comportamientos inteligentes de un hombre. 
Pero éste no puede ser el único criterio por el que juzgar la «inteligencia» 
de un ordenador. 

A lo largo de los años, los investigadores han sugerido diferentes tests 
que determinen si un programa o una máquina deberían ser denominados 
inteligentes o no. Entre todos ellos, los más atractivos se centran en un úni- 
co aspecto del ser humano: la capacidad de actuar de forma original y crea- 
tiva. Pero, ¿puede un ordenador ser creativo y sorprendernos con ideas nue- 
vas y originales? 

De ningún modo. Se han escrito programas capaces de generar demos- 
traciones de teoremas geométricos que ningún hombre había pensado ja- 
más. Cuando tal hecho se logra, ¿quién puede proclamar que ha hecho el 
descubrimiento «inteligente»? ¿El programador que nunca había pensado 
conscientemente en la demostración, o el programa? 

Una cuestión difícil, sin duda. 

Cualquier nombre que usted decida dar a las acciones del programa, bien 
sea inteligencia o algún otro, de lo que no hay duda es de que nos estamos 
acercando rápidamente a una época en la que los ordenadores tendrán men- 
te propia. Lo que podemos hacer con nuestro micro doméstico es simple- 
mente simular algunas propiedades del comportamiento humano; poca cosa, 
pero puede ser muy potente y efectivo. En este libro hemos insistido en la 
creación de programas que interactúen con el usuario. Esto es muy 
importante. 

Dado que vamos hacia otra revolución industrial con los ordenadores con- 
vertidos en un elemento de la vida cotidiana, es necesario hacerlos tan agra- 
dables al usuario como sea posible. Ésta es la primera etapa de la progra- 
mación interactiva. La segunda es escribir programas que puedan leer cual- 
quier entrada del usuario y tomar una decisión en función de lo que se les 
ha dicho. Ambas son relativamente fáciles y, como hemos visto, se pueden 
lograr. La siguiente es, sin embargo, mucho más difícil. 

¿Cómo se pueden escribir programas que se comporten como lo haría un 
hombre en una situación dada? Esto se puede lograr hasta cierto punto, de- 
pendiendo del tipo de comportamiento que queramos imitar. Notará que he 
usado la palabra «imitar» para descubrir las acciones del ordenador. En rea- 
lidad es lo único que estamos haciendo cuando escribimos un programa en 
nuestro ordenador doméstico. 

En este libro hemos utilizado el lenguaje de programación BASIC, pero 
no es una elección muy acertada para crear programas de inteligencia arti- 
ficial. Un lenguaje mucho mejor es el LISP, y existen otros. No obstante, 
hemos aprendido las nociones básicas sobre cómo los ordenadores entien- 
den las instrucciones y con estos conocimientos usted debería ser capaz de 
escribir bastantes programas. 
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Aquí termino. Los principios aprendidos en este libro deben ser los pun- 
tos de apoyo para realizar programas más grandes y mejores. Si usted lo 
ha entendido todo, ya estará escribiendo programas útiles y con un poco 
de imaginación podría estar escribiendo programas que no sólo sirvan para 
asombrar a sus amigos, sino que interactúen verdaderamente con el usua- 
rio. Quizás el interior de su Amstrad sea algo más que un montón de pas- 
tillas de silicio. Pero, sea lo que sea, usted ha encontrado en él un buen pun- 
to de partida para marchar por la Ruta de la Inteligencia Artificial. 


Apéndice A: 
Un curso de choque de BASIC 


Esto es lo que usted llamaría un curso de choque de BASIC, o el BASIC 
básico. Si nunca ha tecleado un programa antes, lea primero este apéndice. 
Le dará una base a partir de la cual podrá continuar con las técnicas des- 
critas en el libro. Suponiendo, pues, que no sabe nada, siga leyendo. 

Encienda su Amstrad y verá un mensaje en la parte superior de la pan- 
talla y un cursor rectangular. Seguramente ya habrá tecleado alguna frase 
amistosa como HOLA pero lo único que ha recibido como respuesta es un 
mensaje donde se le dice que ha cometido un error. ¡No se desanime! 

Los ordenadores son máquinas tontas. Antes de que puedan producir 
esos efectos sorprendentes que usted ha visto en otras máquinas, hay que 
darles un conjunto de instrucciones que les indiquen qué se espera de ellos. 
Este conjunto de instrucciones es lo que denominamos programa: una su- 
cesión lógica de instrucciones por medio de las cuales el ordenador realiza 
su labor. Teclee lo siguiente: 


PRINT “HOLA” 


Cuando haya tecleado esta línea, pulse para terminar la tecla ENTER. ¿Ve 
lo que pasa? La palabra HOLA ha aparecido en la siguiente línea. Escriba 
ahora la misma línea pero cambiando lo que aparece entre comillas. Podría 
teclear, por ejemplo: 


PRINT “MI NOMBRE ES JEREMY” 


Pulse de nuevo la tecla ENTER cuando haya terminado. Esta vez ha cam- 
biado lo que se escribe en la pantalla: coincide con lo que usted puso entre 
las comillas (dicho sea de paso, utilice las dobles comillas que se encuentran 
en la parte superior de la tecla del 2). Dos cosas importantes podemos sacar 
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como consecuencia. Primera, al final de cada línea hay que pulsar la tecla 
ENTER, a menos que yo indique otra cosa. Esto le dice al ordenador que 
ejecute nuestra instrucción. Mientras no se pulse la tecla ENTER, no se eje- 
cuta ninguna orden. Segunda cosa aprendida: lo que hemos hecho es dar 
al ordenador una instrucción legal, algo que es capaz de reconocer. En esta 
ocasión, esa cosa es la orden PRINT. Seguramente usted ya se ha dado cuen- 
ta de que la orden PRINT escribe en la pantalla cualquier cosa que usted 
haya colocado entre las comillas. 

Esto está muy bien y es útil, pero no puede estar todo el tiempo teclean- 
do la misma orden. Lo que acabamos de hacer es impartir una orden di- 
recta. Pero lo que necesitamos es almacenar nuestras instrucciones para que 
sean ejecutadas en el orden que deseemos. Por ejemplo, podemos querer es- 
cribir sobre la pantalla el nombre y la dirección de un amigo en líneas di- 
fereentes. Para ello teclee lo siguiente: 


Programa Al 


10 PRINT"MARIANO GONZALEZ" 
20 PRINT"RUA OSCURA 23" 
30 PRINT"GUADALAJARA" 


No olvide pulsar ENTER al final de cada línea. Cuando termine teclee RUN 
(y después ENTER) y verá que el nombre y la dirección aparecen en tres 
líneas sucesivas. Lo que acaba de hacer es ¡escribir un programa! No es el 
programa más impresionante del mundo, pero es un programa. Cada línea 
representa una orden, que la máquina obedece. He utilizado como números 
de línea del 10 al 30. No importa qué números sean, exactamente igual po- 
drían ser las líneas 1, 2, 3 o 234, 256, 678. El hecho importante es que re- 
presentan una guía para que el ordenador sepa en qué orden tiene que rea- 
lizar las acciones. El ordenador lee primero la línea 10, ejecuta cualquier or- 
den que se haya escrito allí y pasa a la siguiente línea, la 20. Es una buena 
costumbre escribir los programas espaciando los números de 10 en 10, ya 
que siempre es posible que necesitemos insertar alguna nueva línea, y esto 
sería difícil si usted no ha dejado espacio por haber escrito el programa con 
los números de línea en saltos de 1. Dése cuenta de que puede teclear los 
comandos en letras minúsculas, que se convertirán en mayúsculas cuando 
liste el programa. 

Para ver de nuevo nuestro programa teclee LIST (y pulse ENTER). Esta 
orden escribirá una lista de nuestro programa en el orden correcto. 

Hemos visto que la instrucción PRINT es capaz de colocar palabras en 
la pantalla, pero también puede ejecutar instrucciones matemáticas. Teclee 
lo siguiente: 


PRINT 25*2 
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Esta instrucción hace que el ordenador escriba 50. Esto es distinto de lo que 
hemos visto anteriormente. Observe que ahora no hay comillas. En el ejem- 
plo anterior se colocaban las comillas para indicar a la máquina que nos 
encontrábamos ante un fenómeno no numérico o, mejor dicho, algo en lo 
que no era necesario mezclar las matemáticas. En el presente ejemplo, he 
pedido al ordenador que me diga cuánto es 25 multiplicado por 2, y me ha 
respondido con la solución correcta, o sea, 50. Por lo tanto, el ordenador 
también es capaz de hacer de calculadora. 

El siguiente programa solicita del usuario la introducción de un número. 
Así nos encontramos con la segunda instrucción fundamental. Es necesario 
que podamos introducir información en el ordenador. Para ello usamos la 
instrucción INPUT, que dice al ordenador que estamos solicitando infor- 
mación, y éste esperará hasta que reciba una respuesta. Por ejemplo, escri- 
ba esto: 


INPUT número 


En respuesta al signo de interrogación teclee un número. Si así lo hace, el 
mensaje «Ready» volverá a aparecer. Si ahora escribe: 


PRINT número 


el número que introdujo aparecerá en la pantalla. Lo que ha ocurrido es 
que se ha asignado el valor que usted tecleó a una variable numérica, lla- 
mada precisamente «número». Exactamente igual podría llamarse «a» o 
«pepe». Piense que una variable es como una caja. Al usar la instrucción 
INPUT, el número que tecleó fue colocado en la caja llamada «número»; 
cuando usted se interesó a continuación por el contenido de la caja teclean- 
do PRINT número, apareció en pantalla el valor que había introducido. 
Use de nuevo este ejemplo cambiando el nombre de la variable, es decir sus- 
tituyendo «número» por «a»: 


Programa A2 


10 INPUT a 
20 PRINT 6%a 


Ejecute el programa. La línea 10 espera hasta que el usuario introduzca un 
número, que será multiplicado por 6 en la línea 20 y escrito en la pantalla 
por la instrucción PRINT. 
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¿Qué ocurre si tecleamos algo que no sea numérico, como por ejemplo la 
letra A? El ordenador rechaza esta entrada, pues está esperando un valor 
numérico y al recibir algo diferente no sabe qué hacer con ello. Este ejem- 
plo me induce a explicar los dos tipos de variables que existen. 

El primer tipo ya lo hemos visto: son las variables numéricas. El segundo 
tipo de variables que podemos usar son llamadas variables literales. Cuan- 
do se usa una variable literal, cualquier carácter que pulsemos será acepta- 
do y almacenado. La diferencia entre ambos tipos es que no se pueden rea- 
lizar operaciones matemáticas con variables literales. Hay una regla para dis- 
tinguir entre estos dos tipos de variables. 

A las variables numéricas las podemos dar el nombre que queramos. En 
el programa A2 llamamos «a» a nuestra variable numérica, pero exactamen- 
te igual podríamos llamarla «número» o «amstrad». Para indicar al ordena- 
dor que estamos usando una variable literal añadimos un signo $ (dólar) al 
final del nombre de la variable. Por ejemplo, si queremos preguntar al usua- 
rio su nombre y escribir después un saludo personalizado, podemos escribir 
un programa como éste: 


Programa A3 


10 INPUT nombre$ 
20 PRINT"Encantado de conocerle, ":nombre$ 


El punto y coma de la línea 20 dice al ordenador que coloque la variable 
nombre$ a continuación de lo último que se haya escrito, que en esta oca- 
sión es un espacio, porque queremos dejar un espacio entre la «e» final del 
saludo y el nombre introducido. 

Por consiguiente, una variable literal acepta cualquier carácter alfanumé- 
rico, es decir, cualquier carácter del teclado, pero no se pueden realizar ope- 
raciones sobre un número así introducido. Si no está todavía muy seguro 
de la diferencia entre una variable numérica y una literal, vuelva atrás y tra- 
te de escribir un programa que efectúe una multiplicación, pero usando aho- 
ra una variable literal (con el signo $ al final) para obtener el resultado. 

Por último, aprendamos algunas palabras clave de BASIC. La primera 
será LET. Frecuentemente encontrará en programas líneas como ésta: 


etiqueta = 9 


y=y+8 
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En el primer ejemplo hemos dicho al ordenador que la variable numérica 
«etiqueta» debe ser igualada a 9, o para ser más exactos, hemos dicho LET 
(sea) etiqueta=9. La palabra LET es opcional y nosotros no la utilizaremos, 
pero es importante recordar que cuando decimos al ordenador que una va- 
riable es algo o que, como ocurre en el segundo ejemplo, la variable numé- 
rica debe tomar el valor de y+8, le estamos diciendo de hecho LET (sea) 
esta variable igual a ... . 

Así, por ejemplo, si queremos escribir nuestro nombre diez veces debe- 
ríamos teclear diez líneas con una instrucción PRINT cada una: 


10 PRINT"Jeremy" 
20 PRINT"Jeremy" 
30 PRINT"Jeremy" 


etc. Pero ésta es una forma muy pesada de hacerlo. Podemos aprovechar 
la posibilidad de incrementar una variable escribiendo lo siguiente: 


Programa A4 


10 x=0 

20 PRINT"Jerenmy" 
30 x=x+1 

40 IF x<10 GOTO 20 
50 END 


La línea 10 hace el valor de x igual a 0. En la línea 20 es donde escribimos 
nuestra palabra. En la línea 30 se incrementa el valor de x (LET x igual al 
valor de x, que en este momento es 0, y añádale 1, haciéndola por tanto 
igual a 1). 

Vamos ahora con dos instrucciones nuevas: IF (si) y GOTO (ir a). Lo 
que hemos dicho con la línea 40 es que si (IF) x es menor que 10, el pro- 
grama vaya (GOTO) a la línea 20, donde se repite la escritura (PRINT) de 
la frase. Este proceso continúa hasta que x sea mayor o igual que 10. Si x 
supera a 10 el programa termina, como indica la instrucción END (fin) de 
la línea 50. 

Todavía hemos de hablar de las subrutinas. Una subrutina es un grupo 
de instrucciones colocadas en una sección del programa permitiendo al usua- 
rio llamarlas (es decir, solicitar su ejecución), con sólo citar el número de 
línea de la primera de ellas. Puede usted pensar en una subrutina como un 
pequeño programa dentro del programa principal. Si ve una línea que con- 


89 


tiene la expresión GOSUB número de línea, es que se trata de una subru- 
tina. Normalmente la instrucción RETURN marca el final de la definición 
de la subrutina. Por lo tanto, se podría tener un programa de una sola línea 
que llamase a una subrutina: 


10 GOSUB 30 
20 END 

30 PRINT"HOLA" 
50 RETURN 


Las subrutinas son muy útiles y hacen que los programas sean más fáciles 
de leer y de entender. 

Esto era, como he dicho al principio, una breve introducción al BASIC. 
Si ha entendido todo lo que aquí se ha dicho, será capaz de enfrentarse ya 
con el resto del libro. 


Apéndice B: 


Resumen de palabras reservadas del 
BASIC del Amstrad 


Este apéndice contiene un resumen de las instrucciones del BASIC del Ams- 
trad utilizados a lo largo del libro. No trata de sustituir el manual del usua- 
rio, ni es una descripción detallada, pero es suficiente para refrescar su me- 
moria sobre algunas instruccioness que hemos usado. Hemos incluido tam- 
bién algunas instrucciones de las que no hemos hablado en el libro, pero 
que pueden serle útiles. Hemos omitido las instrucciones para gráficos y so- 
nido, así como muchas de las funciones numéricas. Para información adi- 
cional sobre cualquiera de ellas, consulte el manual del usuario. 


AND 


ASC 


AUTO 


BORDER 


CHAIN 


CHR$ 


CLEAR 


CES 


Operador lógico «y» 

Convierte un carácter en un código ASCII. 
Proporciona numeración automática de líneas, facilitan- 
do la escritura de programas con números uniformemen- 
te espaciados. 


Cambia el color del borde de la pantalla. 


Orden que carga (LOAD) y ejecuta (RUN) un progra- 
ma. Se usa en la forma CHAIN «nombre de fichero». 


Convierte un código ASCII en un carácter. 


Borra de la memoria todas las variables usadas an- 
teriormente. 


Borra la pantalla. 
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DATA 


DELETE 


DIM 


ELSE 


END 


ERL 


ERR 


FOR 


GOSUB 


GOTO 


IF 


INK 


INKEYS 


INPUT 


INT 


INSTR 


KEY 
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Son almacenes de información que se lee con la instruc- 
ción READ (leer). 


Se usa para borrar líneas de un programa; por ejemplo 
DELETE 10,60. 


Establece el número de elementos de un vector. 

Se usa en conjunción con IF-THEN para saltar a otra ac- 
ción; por ejemplo, IF contador>20 THEN GOTO 50 
ELSE 100. 


Dice el ordenador que finalice la ejecución de un pro- 
grama. 


Da el número de línea en que se ha producido el último 
error. 


Indica el número del último error detectado. 
Punto de partida de un bucle FOR-NEXT. 


Envía el programa a la subrutina que está en el número 
de línea especificado. 


Envía al ordenador a una determinada línea del pro- 
grama. 


Comienzo de una instrucción IF-THEN. 
Cambia el color de la tinta. 
Detecta la pulsación de una tecla. 


Emite una interrogación para que se introduzca por el te- 
clado un número o una cadena de caracteres. 


Convierte un número en su parte entera. 
Busca una cadena dentro de otra cadena. 


Adjudica una nueva función a una tecla. 
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KEY DEF 


LEFTS$ 


LEN 


LINE INPUT 


LIST 


LOAD 


LOCATE 


LOWERS$ 


MID$ 


MODE 
NEW 
NEXT 


ON 


OR 
PAPER 
PEN 


PRINT 


Define el valor que tendrá una tecla al ser pulsada. 


Toma un número dado de caracteres del principio de una 
cadena. 


Da un número que indica la longitud de una cadena. 


Igual que INPUT, pero garantizando que todo lo teclea- 
do será almacenado en la variable. 


Lista en la pantalla un programa entero o parte de él. 


Carga el programa desde la cinta o un disco a la memo- 
ria del ordenador. 


Mueve el cursor a una posición especificada de la pan- 
talla. Se usa en la forma LOCATE 1,5. 


Convierte letras mayúsculas en minúsculas. 


Toma un número determinado de caracteres a partir de 
una posición especificada de una cadena. 


Fija el modo de presentación en el monitor. 
Borra la memoria del ordenador. 
Constituye el final de un bucle FOR-NEXT. 


Permite redireccionar un programa alterando el orden de 
ejecución; por ejemplo, 


ON a GOTO 25,45 
ON ERROR GOTO 10 


Operador lógico «o». 
Fija el color del papel (fondo). 
Fija el color de los caracteres (primer plano o pluma). 


Escribe en la pantalla. 


READ 


RENUM 


RESTORE 


RETURN 


RIGHTS 


RND 
RUN 
SAVE 
SPC 
STEP 


STOP 


STR$ 


TAB 


THEN 


TO 


UPPER$ 


VAL 
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Lee la información contenida en las instrucciones DATA. 


Renumera las líneas del listado de un programa; se uti- 
liza en la forma RENUM 100. 


Hace que el puntero para lectura de datos se sitúe en una 
línea determinada. 


Marca el final de una subrutina. 


Toma un determinado número de caracteres del final de 
una cadena. 


Genera un número aleatorio. 

Ejecuta el programa. 

Graba un programa en cinta o en disco. 

Coloca el número especificado de espacios en la pantalla. 


Fija el salto de incremento en los bucles FOR-NEXT. 


Detiene el programa y escribe en pantalla el número de 


línea. 


Transforma un número en una cadena literal; por ejem- 
plo, 1 se convierte en «l». 


Combinado con una instrucción PRINT, mueve el cur- 
sor a una posición predeterminada. 


Se usa junto con IF, 


Se usa en las instrucciones FOR-NEXT para establecer 
los límites de la variable del contador. 


Convierte letras minúsculas en mayúsculas. 
Convierte a forma numérica un número que está en 


forma de cadena literal; por ejemplo, «8» se transforma 
en 8. 
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WHILE Produce un bucle hasta que se cumple cierta condición. 
WEND Termina el bucle WHILE. 


ZONE Fija la anchura de la zona de escritura. 


odo está bien 


AMSTRAD 


ESPAÑA 


Avda. del Mediterráneo, 9 28007 MADRID 


